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ABSTRACT 


This  final  report  summarizes  Science  Applications  International  Corporation’s  perfor¬ 
mance  on  contract  no.  N00014-86-C-2341  for  the  Naval  Research  Laboratory.  Our  principle 
deliverable,  the  codes  RAM2D1  and  PRAMl  have  been  completed  on  schedule  and  run 
successfully.  Their  operation  is  described  in  detail  in  this  report  as  well  as  their  application 
to  cases  of  experimental  importance.  We  have  also  carried  out  a  number  of  analytical  cal¬ 
culations  in  order  to  obtain  greater  insight  into  the  code  operation  and  the  experiments  and 
to  make  predictions  in  regimes  of  possible  experimental  interest  which  have  not  yet  been 
explored.  Some  of  these  calculations  were  carried  out  in  collaboration  with  Dr.  John  Rein- 
tjes  of  the  Naval  Research  Laboratory.  These  calculations  are  summarized  in  this  report. 
Relevant  publications  and  presentations  are  also  included. 


I.  INTRODUCTION 


It  is  with  pleasure  and  some  pride  that  we  present  this  summary  of  our  accomplishments 
during  this  past  year.  We  have  completed  the  development  of  our  principal  deliverable,  the 
code  RAM2D1,  which  solves  the  basic  equations  governing  transient,  stimulated  Raman 
interactions,  accounting  for  both  transient  and  diffractive  effects.  Using  simple  switches  we 
can  run  the  code  in  the  transient  regime  where  diffractive  effects  can  be  ignored  or  in  the 
stationary  regime  where  the  transient  effects  can  be  ignored.  Up  to  eight  cases  can  be  run 
simultaneously  in  these  two  limiting  regimes.  We  have  also  developed  a  diagnostic  code 
PRAM1  which  uses  DISSPLA  routines  to  plot  the  results  of  our  computer  calculations.  It 
can  generate  both  ordinary  plots  and  contour  plots. 

Both  RAM2D1  and  PRAM1  run  on  the  NRL  CRAY.  They  have  also  been  tested  on 
other  CRAYs  and  should  be  easily  modifiable  to  run  on  a  variety  of  different  machines. 

In  addition  to  developing  and  testing  these  codes,  we  have  carried  out  a  number  of 
analytical  and  computational  studies  for  the  purpose  of  supporting  existing  experimental 
programs  at  the  Naval  Research  Laboratory  and  exploring  potential  new  ones.  Some  of  these 
projects,  but  not  all,  make  use  of  RAM2D1  and  PRAM1.  These  studies  have  been  marked 
by  close  cooperation  with  the  experimentalists  at  the  Naval  Research  Laboratory.  We  have 
explored  transient  phenomena  in  the  long-distance  limit  both  analytically  and  computa¬ 
tionally.  We  have  shown  that  the  pump  amplitude  oscillates  at  a  frequency  proportional 
to  z1/2  and  that  the  integrated  intensity  is  proportional  to  z  at  long  lengths.  We  have 
analytically  studied  stationary,  multiple-beam  interactions  in  a  number  of  different  limits. 
In  collaboration  with  Dr.  Reintjes  of  the  Naval  Research  Laboratory,  we  have  studied  the 
conditions  under  which  side  beam  replication  occurs  and  have  suggested  a  possible  remedy. 
We  have  carried  out  computational  studies  of  stationary,  collinear  beam  propagation  to 
determine  the  variation  of  the  beam  focal  length  due  to  nonlinear  effects.  In  collaboration 


with  Dr.  M.  Duncan  and  Dr.  R.  Mahon,  we  have  also  carried  out  transient,  computational 
studies  to  make  detailed  comparisons  between  theory  and  experiment.  Finally,  we  have  car¬ 
ried  out  studies  of  solitons  aimed  toward  determining  when  they  will  appear  and  whether 
they  are  worth  studying  experimentally. 

These  studies  have  laid  a  firm  foundation  for  work  which  we  will  undertake  in  the 
years  to  come.  The  codes  RAM2D1  and  PRAM1  will  undergo  further  development  to 
enlarge  the  range  of  phenomena  which  can  be  considered,  improve  efficiency,  and  improve 
our  diagnostic  capabilities.  Several  of  the  scientific  studies  we  have  undertaken,  particularly 
those  concerning  side  beam  replication  and  focal  point  evolution,  are  likely  to  remain  major 
concerns  in  the  coming  years. 


n.  CODE  DEVELOPMENT 


A*  Basic  Philosophy 

In  this  section,  we  outline  the  basic  philosophy  governing  our  choice  of  algorithms  and 
our  choice  of  the  plotting  package  DISSPLA. 

The  basic  equations  which  we  need  to  solve  are 
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where  ki,  *s,  T,  «i,  and  Kj  are  all  physical  parameters  which  are  held  constant  in  any 
individual  computer  run.  Our  boundary  conditions  are  that  Ei,{z,t)  and  E$(z, t)  are  fixed 
for  all  time  at  z  =  0.  We  assume  also  that  Q(z,  t)  =  0  at  t  =  -oo  for  all  z.  Mathematically, 
Eqs.  (2.1. a)  and  (2.1.b)  are  propagation  equations  while  Eq.  (2.1.c)  is  a  constraint  equation. 

In  solving  these  equations,  our  goal  is  to  write  a  simple  code  which  requires  a  minimum 
of  space,  runs  with  good  efficiency,  is  robust,  and  is  easily  transportable. 

The  code  RAM2D1  is  written  in  FORTRAN  and  uses  no  canned  routines  except  for 
the  fast  Fourier  transform.  Thus,  this  code  is  highly  portable.  The  code  PRAM1,  being  a 
plotting  program,  is  dependent  on  the  graphics  package  which  is  chosen.  We  use  DISSPLA. 
While  DISSPLA  is  somewhat  difficult  to  learn,  it  is  extremely  powerful,  and  it  exists  on 
many  different  installations. 

To  solve  the  partial  differential  equations,  we  used  a  semi-spectral  approach.  For  smooth 
initial  conditions  and  infinite  transverse  boundaries,  this  approach  has  been  shown  for  a  large 
number  of  cases  to  be  superior  to  finite  difference  or  finite  element  methods.1  The  reason 
is  that  this  approach  is  “infinite-order”  in  the  transverse  direction.  It  has  the  additional 


advantage  that  the  linear  propagation  is  solved  exactly  (to  within  computer  roundoff)  so 
that  in  the  limit  of  weak  nonlinearity,  a  quite  important  limit  in  practice,  step  sizes  in  z  can 
remain  relatively  large. 


Use  of  the  semi-spectral  method  places  a  premium  on  carrying  out  the  fast  Fourier 
transform  efficiently.  We  have  written  it  so  that  it  vectorizes  in  different  directions  in  the 
fully  two-dimensional  and  stationary  limits.  Other  portions  of  the  code  are  also  written  to 
vectorize  as  efficiently  as  possible. 

Another  concern  is  reducing  memory  requirements.  For  this  reason,  we  settled  on  a 
mid-step  Euler  approach,  rather  than  a  fourth  order  Runge-Kutta  approach,  although  the 
latter  is  more  accurate.2  We  have  found  nonetheless  that  in  the  fully  two-dimensional  limit, 
the  code  is  often  too  large  to  run  on  the  CRAY-XMP32  at  NRL  without  modification.  We 
have  thus  written  a  version  of  the  code  which  allows  us  to  move  the  data  back  and  forth 
from  core  memory  to  the  disk,  keeping  only  what  is  needed  for  a  single  operation  in  core. 
While  this  approach  solves  the  space  problem,  it  necessitates  a  substantial  amount  costly 
I/O.  A  completely  acceptable  solution  to  this  problem  has  not  yet  been  found. 

A  final  issue  that  requires  discussion  is  robustness.  The  semi-spectral  approach  with  a 
mid-step  Euler  advancement  in  z  is  extremely  robust.  As  long  as  sufficient  spectral  band¬ 
width  is  provided  through  a  sufficient  number  of  node  points,  the  method  is  never  linearly 
unstable.  The  other  place  this  iss”?  arises  is  in  the  solution  of  the  constraint  equation.  One 
must  integrate  Eq.  (2.1.c)  in  a  way  which  yields  an  accurate  solution,  independent  of  the 
ratio  of  Tm%x  to  7j,  where  Tmtx  is  the  maximum  jt|-value  of  the  t-region  being  kept.  In  the 
region  where  7j  :»  Tmtx  we  use  straightforward  integration.  When  Tj  <  Tmtx,  we  use  a 
Fourier  transform  approach.  The  critical  point  is  that  each  approach  does  not  work  well  at 
the  extreme  limits  of  the  regime  opposite  to  where  it  is  applied.  Hence,  both  are  needed. 
We  have  set  the  crossover  point  at  Tm„/Ta  =  10.  At  the  crossover  point,  both  methods 
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work  well. 


At  present,  the  diagnostic  code  PRAM1  is  set  up  to  provide  contour  plots  in  t  -  y  space 
of  the  intensities,  phases,  and  amplitudes  of  our  principal  fields,  the  pump,  Stokes,  and 
material  excitation  at  fixed  2-values.  It  also  allows  one  to  choose  constant  2  and  constant 
t  sections  for  plotting  purposes.  These  section  plotting  options  are  especially  useful  when 
plotting  results  obtained  in  the  stationary  and  transient  limits,  as  the  contour  plotting 
routines  can  no  longer  be  used.  The  code  PRAM1  does  not  plot  2-history  data;  however, 
special,  modified  versions  do  exist  for  plotting  this  sort  of  data.  More  details  can  be  found 
in  the  manual  to  RAM2D1  and  PRAMl  which  has  been  included  as  Appendix  B. 

The  major  concerns  in  designing  this  code  have  been  flexibility  and  esthetics.  Thus,  the 
code  has  a  large  range  of  options,  giving  the  user  a  large  range  of  choices  in  how  to  plot  the 
contour  levels,  where  to  choose  the  sections,  how  many  to  plot,  and  so  on.  Esthetic  choices 
have  included  our  insistence  that  the  axis  labels  should  be  at  “nice”  values,  the  contour 
levels  should  be  at  “nice”  values,  and  that  the  contour  plots  should  lend  themselves  readily 
to  the  future  production  of  movies. 

B.  Algorithmic  Description  of  RAM2D1 

The  basic  layout  of  RAM2D1  is  shown  in  Fig.  2.1.  In  this  section,  we  describe  the 
basic  algorithms  used  in  each  of  the  subroutines.  The  program  listing  is  found  in  Appendix 
A,  and  more  details  on  the  variables  and  the  program  set-up  can  be  found  in  Appendix  B. 

The  main  subroutine  ccat&ins  the  input  routine,  routines  to  translate  the  input  variables 
into  variables  used  by  the  program,  the  basic  stepping  routine  for  the  mid-step  Euler  method, 
and  timing  routines. 

The  variables  NT  and  NY  set  the  number  of  nodes  in  the  t  and  y  directions.  These 
should  be  set  equal  to  2^,  where  N  is  some  integer,  for  the  FFT  routines  to  run  properly. 
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FIGURE  2.1.  The  structure  of  RAM2D1  is  shown  schematically. 


Since  they  determine  array  sizes,  they  are  set  in  a  PARAMETER  statement.  The  code  must 
be  re-compiled  whenever  they  are  changed.  They  also  serve  as  switches.  When  NT<  8,  the 
code  assumes  that  the  stationary  limit  is  being  used  with  the  number  of  distinct  cases  set 
by  NT;  similarly,  when  NY<  8,  the  code  assumes  that  the  transient  limit  is  being  used  with 
up  to  8  distinct  cases. 

Most  other  input  parameters  are  read  in  through  a  namelist  statement.  (The  only 
exceptions  are  NP  and  NST  which  set  the  maximum  number  of  pump  beams  and  the  length 
of  the  timing  data  vector.)  Parameters  include:  the  actual  number  of  pump  beams,  NPUMP; 
parameters  which  specify  the  box  size,  TM  and  YM;  parameters  to  determine  beam  offsets, 
intensities,  and  widths,  YOFF,  TOFF,  YOST,  TOST,  YWIDTH,  TWIDTH,  YWST,  TWST,  RINT,  RIST; 
basic  switches  used  by  INIT  to  set  beam  type,  ICQND,  RTYPE,  ITYPE;  other  parameters 
governing  the  beam  shape,  RAMASM,  RALASM,  PHL,  PHST,  TOC,  NHYP,  RABAMP,  RDSLIM;  param¬ 
eters  governing  the  beam  intersection  point,  the  final  z-value,  and  the  z-step,  ZINT,  ZFINAL, 
ZSTEP;  a  parameter  setting  the  maximum  number  of  z-steps  NMAI;  physical  parameters,  RKP, 
RKS,  TTWO,  GAIN;  and  a  parameter  governing  how  often  z-data  is  recorded,  ZKEEP. 

From  here,  initialization  of  the  derived  quantities  is  carried  out.  The  parameters  RKAP1 
and  RKAP2  (ki  and  kj)  are  determined  from  GAIN  (g).  The  pump  and  Stokes  amplitudes 
are  determined  from  the  input  power  fluxes.  Other  miscellaneous  actions  are  carried  out; 
in  particular  the  parameters  governing  the  final  z-value  and  the  z-values  at  which  data 
are  recorded  are  reduced  slightly  to  avoid  difficulties  with  roundoff  when  making  equality 
comparisons. 

Since  the  step  size  is  fixed,  so  is  the  linear  propagator.  To  save  computer  time,  we 
calculate  the  propagator  once  and  for  all  and  store  it  in  CYVEC  where  it  is  called  as  needed. 
Two  propagators  are  needed,  one  f  .  the  pump  and  one  for  the  Stokes.  Specifically,  referring 


to  Eq.  2.A.1,  and  defining  the  Fourier  transform,  of  X(y) 


Mk)=^j0°oodye^X(y)  , 


(2.2) 


we  find  that  the  linear  propagator 

dEL  «  d'EL 
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has  the  solution 

EL(k,z)  =  EL(k,0)*xp(-ik*z/2kL)  , 


Es(k,z)  =  Es(k,0)exp(-ik2z/2ks)  • 

We  note  as  well  that  the  fast  Fourier  transform  produces  the  A:- values, 

k  =  2^n  ~  ^  ,  (1  <  n  <  HT/2) 
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where  ymi„  and  ymax  are  the  minimum  and  maximum  values  of  the  y-box  size. 

We  now  initialize  arrays  which  are  used  in  the  determination  of  Q.  There  are  three 
methods  used  for  determining  Q,  depending  on  the  regime  in  which  the  code  is  being  used. 
In  method  1,  which  applies  to  the  stationary  limit,  we  set 


Q  = 


(2.6) 


In  method  2,  which  applies  when  TRAT  =  Tmax/Tj  <  10,  we  use  the  integral  expression 

Q(z,t)  =  -,K1e-r*/“  trt'E-s{z,t')EL{z,t')dt'  ,  (2.7) 

The  integrand  has  no  t-dependence  which  allows  us  to  calculate  the  integral  through  a 
running  application  of  the  trapezoidal  rule.  The  vector  WQ1  is  initialized  to  contain  exp(rt), 


and  the  vector  WQ2  is  initialized  to  contain  exp(-rt).  Method  3  applies  when  TRAT>10. 
Here,  we  define  the  Fourier  transform 


dt  e,utX(t)  . 


(2.8) 


We  then  note 


Q(z,uj)  =  -*«i 


E*s(z,(jj)El(z,<jj) 

r  —  ioj 


Our  approach  is  thus  to  multiply  Eg  by  El,  take  the  Fourier  transform,  multiply  by 
-iKi/(T  -  «w)  and  inverse  transform.  The  vector  CWQ  contains  the  Fourier  data,  and  COMVEC 
contains  the  factor  -</ci/(r  -  iw).  Method  2  does  not  succeed  when  TEAT  becomes  very 
large  due  to  under  flow/overflow  problems.  Method  3  does  not  succeed  when  TEAT  becomes 
very  small  because  (T  —  ioj)  ~ 1  becomes  singular. 

In  the  code,  we  next  store  our  initial  data  and  enter  the  routine  INIT  which  initializes 
the  pump  and  Stokes  fields.  The  ICOND  value  determines  the  basic  form  of  the  initialization. 


When  IC0ND=I,  a  sech  amplitude  profile  is  taken  in  both  the  t  and  y  directions.  When 
IC0ND=2,  a  sech2  amplitude  profile  is  taken  in  the  t-direction  and  a  hyper-Gaussian  profile 
in  the  {/-direction.  Additional  parameters  adjust  the  leading  edge  of  the  Stokes  pulse  so  that 
it  can  be  sharper  than  the  pump  pulse  and  a  chirp,  or  phase  variation,  can  be  added  to  the 
Stokes  pulse.  When  ICQND=3,  a  transient  case  is  run.  The  amplitude  profiles  are  governed 
by  ITYPE  and  include  sech,  Lorentzian,  square,  exponential,  Gaussian,  and  hyper-Gaussian 
profiles.  The  power  of  the  amplitude  or  exponent  is  governed  by  ETYPE.  When  IC0ND=4, 
a  stationary  case  is  run  with  a  hyper-Gaussian  profile.  Other  parameters  allow  non-zero 
phase  and  intensity  aberrations  to  be  introduced  and  govern  their  strength. 

The  subroutine  INIT  functions  as  a  separate  element  and  takes  up  increasing  space 
as  more  alternative  initializations  are  added.  At  present,  however,  the  space  allocated  is 
negligible,  and  it  is  not  worthwhile  to  separate  INIT  from  RAM2D1. 


V~w  unin  fcnrkrw 


We  next  record  the  initial  fields  and,  except  in  the  transient  case  where  Fourier- 
transformed  data  is  not  used,  calculate  and  record  the  Fourier  data  as  well. 

We  now  enter  the  main  loop  where  the  mid-step  Euler  method  is  applied  to  the  forward 
stepping  of  EL{z,y,t),  Es(z,y,t),  and  Q(z,y,t)  from  zn  to  zn+i  =  zn  +  As.  We  assume 
that  El,  Es,  and  Q  are  known  at  2  =  zn.  We  recall  that  the  equations  for  El  and  E$  are 


d  El  ik 1  -  J fer  • — ^ 

-a7  +  vTLEL  =  -'*'rsQEs  • 

dEs  ik 2  -  .  - — -- 

+  WsEs  =  ~tKiQ' El  ■ 


(2.10) 


The  routine  DERIV  calculates  the  right-hand  sides  of  Eq.  (2.10)  by  first  determining  the 
multiplicands  QEs  and  Q’  El  and  then  transforming.  The  quantities  El  and  Es  are  then 
advanced  to  the  midpoint  using  the  formula 

&l{z „+i/j)  =  exp[(-i*V2fc£)(Az/2)]^i(zn) 


i^-K^QizJEsizn) 


Es{zn+ i/a)  =  exp[(-$fcJ/2*s)(Az/2)]jfe(*n) 


(2.11) 


-i^-KiQ'(zn)EL{zn)  , 

where  zn+1/2  —  zn  +  Az/2.  We  recall  that  the  exponential  factors  are  stored  in  CYVEC. 
The  routine  DETQ  first  determines  2£l(z„+ i/j)  and  Es{zn+i/ a)  by  inverse  transforming 
El  and  Es-  It  then  calculates  Q(zn+1/j)  using  the  appropriate  method.  We  now  repeat  the 
procedure,  first  using  DERIV  to  calculate  the  right-hand  side  of  Eq.  (2.10)  at  z  —  zn+1/2 

and  then  using  the  formula 
El(z„+i)  =  exp  [(—ik1  /2kL)Az]  EL(zn) 


-  iAz  xj^j<3(zn+i/j)£7s(^f»+i/a)  1 


(2.12) 


Es{zn+i)  =  exp[(-»*2/2*s)Az]Es(zn) 


to  determine  El  and  Es  at  z  =  z„+i.  Using  DETQ,  we  finally  obtain  El,  Es,  and  Q  at 
z  —  zn+i  and  are  ready  for  the  next  loop  iteration.  For  transient  runs,  Fourier  transform 
data  is  not  calculated. 

At  the  end  of  each  loop  iteration,  a  check  is  made  to  determine  whether  data  should 
be  recorded. 

After  exiting  the  main  loop,  the  timing  data  and  the  number  of  data  records  is  recorded. 

C.  Algorithmic  Description  of  PRAMl 

The  purpose  of  PRAMl  is  to  display  desired  aspects  of  the  data  that  RAM2D1  generates 
and  files.  Those  data  are  the  complex  field  amplitudes  of  the  pump  beams,  Stokes  beam,  the 
material  excitation,  and  their  Fourier  transform  representations  (=6  field  arrays).  Whenever 
Fourier  transforms  are  mentioned  it  is  understood  to  be  the  transform  with  regard  to  the 
transverse  spatial  dimension  y.  The  desired  format  of  display  is  that  of  contour  plots  of  the 
intensity  of  these  fields  versus  time  coordinate  and  versus  transverse  spatial  coordinate  at 
a  given  point  z  along  the  path  of  propagation.  In  addition  to  that,  cross-sections  (of  the 
contour  plots)  of  the  intensity  and  sections  of  the  field  phase  and  amplitude  at  user-defined 
z-values  can  be  displayed.  In  the  case  of  one-dimensional  simulations  no  contour  plots  are 
available. 

Intensity,  phase,  and  real  and  the  imaginary  part  of  the  amplitude  can  all  be  diplayed. 
These  three  types  of  plots  are  desired  of  the  three  fields  and  their  Fourier  transforms.  Hence, 
18  different  types  of  sections  in  addition  to  the  intensity  contour  plots  can  be  generated. 

The  user  can  generate  any  one  or  several  graphs  of  the  described  type  by  specifying 
appropriate  values  for  the  elements  of  the  flagging  vector  ISRF  and  array  CSEC  in  the  input 
data  file  NP-.DAT.  For  this  purpose  the  field  arrays  are  numbered  (I  through  VI)  and  the 
sections  (1-18).  Which  numeral  corresponds  to  which  type  of  graph  and  their  sequence  of 


appearance  in  the  output  is  as  follows: 

I.  contour  plot  of  pump  intensity 

1.  sections  of  pump  intensity 

2.  sections  of  pump  phase 

3.  sections  of  pump  amplitude  (real/imag) 

II.  contour  plot  of  pump  FFT  intensity 

4.  sections  of  pump  FFT  intensity 

5.  sections  of  pump  FFT  phase 

6.  sections  of  pump  FFT  amplitude  (real/imag) 
m.  contour  plot  of  Stokes  intensity 

7.  sections  of  Stokes  intensity 

8.  sections  of  Stokes  phase 

9.  sections  of  Stokes  amplitude  (real/imag) 

TV.  contour  plot  of  Stokes  FFT  intensity 

10.  sections  of  Stokes  FFT  intensity 

11.  sections  of  Stokes  FFT  phase 

12.  sections  of  Stokes  FFT  amplitude  (real/imag) 

V.  contour  plot  of  mat.  exct.  intensity 

13.  sections  of  mat.  exct.  intensity 

14.  sections  of  mat.  exct.  phase 

15.  sections  of  mat.  exct.  amplitude  (real/imag) 

VI.  contour  plot  of  mat.  exct.  FFT  intensity 

16.  sections  of  mat.  exct.  FFT  intensity 

17.  sections  of  mat.  exct.  FFT  phase 

18.  sections  of  mat.  exct.  FFT  amplitude  (real/imag) 


VH.  contour  plot  of  pump  and  Stokes  intensity 

19.  sections  of  sum  of  pump  and  Stokes  intensity 
VH1.  contour  plot  of  pump  and  Stokes  FFT  intensity 
Three  more  types  of  plots  than  the  expected  6+18  were  added  on  the  bottom  of  the  list. 
These  are  the  surfaces  VC  and  V  ill  and  section  19.  These  graphs  plot  pump  and  Stokes 
data  simultaneously  on  a  common  scale.  Section  19  draws  the  sum  of  the  fields  weighted  by 
a  certain  factor  so  as  to  compose  a  special  invariant  of  the  Raman  interaction. 

The  roman  numerals  tell  which  element  of  the  vector  ISRF  is  the  flag  that  determines 
if  that  particular  contour  plot  will  be  generated  or  skipped. 

ISRF(n)  =  0  contour  plot  skipped 
ISRF(n)  =  1  contour  plot  drawn  with  contours  labeled 
ISRF(n)  =  —  1  contour  plot  drawn;  no  labels  on  contours 
The  default  value  is  zero  which  is  set  in  PRAM1. 

Each  sectional  plot  is  associated  with  one  element  of  the  complex  array  CSEC.  The 
position  of  the  element  specifies  uniquely  one  cross  sectional  plot.  The  arabic  numerals  in 
the  list  above  indicate  the  row  number  (first  array  index)  of  CSEC  with  which  each  described 
type  of  section  is  associated.  The  column  number  (second  index)  of  the  elements  of  CSEC 
numbers  the  particular  cross  sectional  plot  of  that  type.  The  parameter  NSEC  (  <  9)  gives 
the  maximally  allowed  number  of  sections  of  each  type  for  the  run. 

The  plotting  of  any  cross-section  is  done  depending  on  the  values  of  the  real  and  imag¬ 
inary  part  of  their  representative  element  in  CSEC.  At  the  beginning  of  execution  PRAM1 
sets  them  all  equal  to  zero  as  the  default  value.  The  values  specified  in  the  input  data  file 
replace  these  zeros. 

In  a  two-dimensional  simulation  the  value  of  the  imaginary  part  of  each  element  of  the 


array  CSEC  means: 


=  0.0:  that  this  sectional  plot  is  not  requested 

=  1.0:  that  this  sectional  plot  is  requested  and  that  it  shall  be  a  cross-section  parallel 
to  the  y-axis  of  the  surface  under  question  at  a  fixed  t-value  as  given  in  physical 
units  (psec)by  the  real  part  of  the  current  element  of  CSEC.  The  first  index 
of  the  array (s)  SRF(I)  in  PRAM1  is  being  held  constant  for  this  plot  at  the 
value  ISEC  which  is  the  grid  point  that  corresponds  best  to  the  fixed  t-value; 
=  2.0:  that  this  sectional  plot  is  requested  and  that  it  shall  be  a  cross  section  parallel 
to  the  t-axis  of  the  surface  under  question  at  a  fixed  y-value  as  given  in  physical 
units  (cm  or  1/cm) by  the  real  part  of  the  element  of  CSEC  in  question.  The 
second  index  of  the  array(s)  SRF(I)  in  PRAM1  is  being  held  constant  for  this 
plot  at  the  value  ISEC  which  is  the  grid  point  that  corresponds  best  to  the 
fixed  y-value. 

In  short:  the  imaginary  part  tells  which  variable  to  hold  constant,  and  the  real  part 
tells  at  what  value  (in  physical  units). 

In  a  one-dimensional  simulations  the  location  of  the  array  elements  within  CSEC  has 
the  same  correspondence  with  cross-sectional  plots  as  in  two-dimensional  simulations.  The 
exact  values  of  the  imaginary  parts  of  CSEC  no  longer  matter  except  that  they  must  be 
larger  than  0.001  for  the  corresponding  sections  to  be  generated.  In  the  diagnosis  of  a  run 
by  RAM2D1  where  only  one  one-dimensional  case  was  simulated  the  exact  value  of  the  real 
parts  of  CSEC  also  do  not  matter;  however,  they  must  be  larger  than  0.5  and  less  than  8.5  for 
the  plot  to  be  generated.  When  several  cases  have  been  simulated  in  one  run  simultaneously 
the  value  of  the  real  part  (1.0,  2.0,  3.0,  4.0,  5.0,  6.0,  7.0,  or  8.0)  of  each  element  of  array 
CSEC  identifies  which  of  these  cases  is  meant  to  be  diagnosed. 

The  program  has  the  structure  shown  in  Fig.  2.2.  The  program  starts  by  setting 
default  values  for  the  graphics  output  parameters  as  specified  in  the  data  statements.  These 


default  values  are  updated  by  reading  customized  values  from  the  namelist  file  NPRAMl  3 

The  updated  parameter  set  is  then  written,  depending  on  the  value  of  the  4  elements  of  the  ] 

vector  LPRMT(n),  onto  the  first  4  graphics  frames  in  the  output  META-file  call  PLT2.DAT.  j 

The  value  of  the  n-th  element  of  LPRMT  should  be  equal  to  1  if  the  n-th  page  of  parameters  3 

is  to  be  plotted,  and  equal  to  0  if  not.  The  content  of  the  four  parameter  graphics  frames  3 

is  shown  in  the  examples  of  the  appendices.  2 

The  program  continues  by  calculating  several  constants.  Among  these  constants  are  j 

the  end  values  and  interval  sizes  for  the  plotting  of  the  frequently  used  y-  and  {-coordinate  ! 

axes.  Then  the  large  DO-loop  500  is  entered.  It  reads  the  data  for  each  requested  plot  and 
converts  it  into  a  device-independent  graphics  frame  that  is  stored  in  the  META-file.  Once  ! 

all  data  are  scanned  with  respect  to  the  requested  graphs  the  generated  graphics  frames  in  ] 

I 

the  META-file  are  transfered  to  the  VAX  storage  disk  under  the  name  PLT2.DAT.  J 

* 

In  detail,  the  ensuing  main  part  of  this  program  acquires  the  electric  field  data  from  the  < 

input  data  file  F - by  reading  sequentially  the  i-th  record  specified  by  the  value  i  of  < 

the  consecutive  elements  of  the  vector  KZ.  These  complex  amplitude  data  are  converted  into 

real  intensity  data  (array  S&F),  or  are  split  into  their  real  (array  SRF)  and  imaginary  (array  1 

I 

SRFI)  parts  for  plotting  of  the  phase  and/or  amplitudes.  Following  their  acquisition,  the  j 

real  arrays,  SRF  and  SRFI,  axe  handed,  like  other  necessary  parameters,  through  FORTRAN 
COMMON  BLOCKS  to  the  subroutine  CNTR  (for  contour  plotting)  and  to  the  subroutine 
CRSSCT  (for  cross  sectional  plots). 

The  subroutine  CNTR  is  then  called  depending  on  the  value  of  the  relevant  element  of 
ISRF.  Interleaved  in  these  calls  are  the  calls  to  the  subroutine  CRSSCT,  depending  on  the 
sum  of  values  of  all  elements  of  the  line  of  CSEC  in  question.  If  this  sum  is  non-zero  CRSSCT 
is  called  to  generate  the  requested  graphs,  if  this  sum  is  zero  the  DO-loop  proceeds.  Following 
the  end  of  DO-loop  500  the  program  just  closes  the  META-file  and  then  stops  execution. 


META 

graphics  output  dataset 


The  contouring  subroutine  CNTR  makes  use  of  the  subroutine  MYCON  which  gen¬ 
erates  a  customized  dotted  line  for  the  half-height  contour.  The  cross  section  subroutine 
CRSSCT  calls  repeatedly  on  the  subroutine  NYSXIS  which  finds  “nice”  values  for  coor¬ 
dinate  axis  limits  and  intervals.  NYSXIS  in  turn  uses  subroutine  POWBAS  to  find  the 
next  lower  integral  power  of  10  for  maximas  and  minim  as.  Both  subroutines  CNTR  and 
CRSSCT  share  subroutine  X1SFFT  when  making  secondary  axes  for  FFT-plots. 

The  subroutine  CNTR  contains  the  calls  to  the  special  routines  of  the  DISSPLA  graph¬ 
ics  library  that  create  the  graphics  data  for  each  contour  plot.  Several  features  of  those  plots 
are  customized  with  respect  to  the  standard  that  DISSPLA  provides.  For  example,  the 
software  that  generates  axis  tick  marks  has  been  amended  by  the  non-DISSPLA  subroutine 
NYSXIS.  The  subroutine  NYSXIS  computes  “nice”  tick  marks  along  the  coordinate  axes. 
The  subroutine  XISFFT  computes  the  location,  extrema  and  intervals  of  the  transformed 
variable  axis  in  FFT-plots.  The  subroutine  changes  the  field  data  in  order  to  plot  the  loga¬ 
rithmic  intensity  as  desired.  Therefore,  the  intensity  data  in  SRF  (SRFI)  have  to  be  restored 
in  the  main  part  of  the  program  before  the  intensity  cross  sections  can  be  generated. 

The  call  to  subroutine  CNTR  contains  the  parameter  KSRF  which  identifies  the  type 
of  graph.  Depending  on  its  values,  various  titles,  coordinate  axes,  and  labels  are  selected 
and  drawn.  The  sign  of  KSRF  toggles  the  labeling  option  of  the  main  contour  lines  (positive 
KSRF  labels,  negative  KSRF  no  labels).  The  main  contour  lines  are  solid  lines  representing 
integral  powers  of  10.  A  number  NDEC  such  lines  will  be  drawn  below  the  peak  of  the  surface 
maximum.  A  number  ILK  (  <  8)  other  contour  lines  (dashed  lines)  are  drawn  between  the 
main  contour  lines  corresponding  to  the  integral  multiples  of  the  next  lower  integral  power  of 
ten.  Which  integral  multiples  are  to  be  drawn  is  determined  by  the  first  ILN  elements  of  the 
vector  LEVEL.  If  the  input  parameter  ISHM  =  1  a  dotted  contour  will  mark  the  half-height 
level,  if  ISHM  =  0  this  line  will  not  be  drawn,  if  ISHM  =  -1  the  half-height  contour  and  a 
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dot  at  the  surface  maximum  will  be  drawn. 

The  subroutine  CRSSCT  contains  the  calls  to  the  special  routines  of  the  DISSPLA 
graphics  library  that  create  the  graphics  data  for  each  cross  sectional  plot  from  the  modified 
field  data  in  the  array(s)  SRF  (SRFI).  Just  as  in  the  case  of  CNTR,  several  features  of  those 
plots  are  customized  with  respect  to  the  standard  that  DISSPLA  provides. 

The  three  categories  of  cross  sectional  plots  are:  intensity  plots  (following  statement 
label  300),  phase  plots,  and  amplitude  plots  (both  following  statement  label  400).  When 
intensity  cross  sections  are  called  for,  this  subroutine  executes  DO-loop  390  that  does  all 
cross  sections  specified  in  row  MS&F  of  array  CSEC  and  thereafter  returns  control  to  the  main 
program.  When  phase  or  amplitude  cross  sections  are  called  for,  this  subroutine  executes  DO- 
loop  490  which  generates  all  phase  sections  specified  in  row  MSRF  of  array  CSEC.  Immediately 
afterwards,  since  phase  plots  and  amplitude  plots  are  derived  from  the  same  data  in  the 
arrays  SRF  and  SRFI,  DO-loop  590  is  executed  which  generates  all  amplitude  cross  sections 
that  are  specified  in  row  MSRF+1  of  array  CSEC.  After  these  actions,  control  is  returned  to 
the  main  program. 

Each  type  of  cross  sections  is  prepared  in  a  similar  fashion.  In  the  case  of  one- 
dimensional  data  (NT  or  NT  less  than  or  equal  to  8),  only  one  argument  of  the  array  (s) 
SRF  (and  SRFI)  is  an  independent  variable  the  other  argument  serves  as  a  label  to  allow  dis¬ 
tinction  between  up  to  eight  one-dimensional  datasets.  Which  one  of  these  eight  datasets  is 
to  be  graphed  is  determined  by  the  value  of  the  real  part  of  the  element  of  CSEC  under  consid¬ 
eration.  When  NT  and  NT  are  larger  than  8,  then  SRF  and  SRFI  contain  one  two-dimensional 
function,  a  surface.  Which  of  the  two  functional  arguments  is  to  be  held  constant  for  each 
cross  sectional  plots  is  determined  by  the  imaginary  part  of  its  corresponding  element  of 
CSEC.  Therefore,  in  2-d  cases  the  imaginary  part  of  the  current  element  of  CSEC  is  tested.  If 
it  is  2.0  a  horizontal  cross  section  (second  variable  of  array(s)  SRF  (SRFI)  fixed)  follows;  if  it 
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ia  1.0  a  vertical  croaa  section  (first  variable  of  array(s)  SRF  (SRFI)  fixed)  follows;  otherwise 


the  next  element  in  the  current  row  of  CSEC  will  be  considered  in  the  same  way.  A  selected 


plot  starts  by  writing  its  headline  and  axis  labels  onto  a  new  graphics  frame.  Then  the 


data  of  the  sectional  curve  are  computed,  the  coordinate  system  is  sized  accordingly  and 


then  drawn.  Finally  the  cross  sectional  curve  is  itself  drawn.  If  the  plot  displays  FFT-data 


the  drawing  of  the  FFT-axis  that  would  be  drawn  as  part  of  the  coordinate  system  (CALL 


GRAF)  will  be  suppressed  in  order  to  avoid  the  tick  mark  labels  which  generally  exhibit 


“messy  looking”  numbers.  This  axis  of  the  coordinate  system  is  suppressed.  Instead  of 


it  a  “secondary”  (DISSPLA  nomenclature)  axis  will  be  drawn  immediately  after  the  cross 


sectional  curve  is  drawn.  This  secondary  axis  exhibits  tick  marks  with  “nice”  values  as 


determined  by  the  subroutine  NYSXIS. 


The  cross  sectional  curves  are  the  functional  values  of  the  field  data  arrays  at  the  grid 


point  ISEC  that  is  the  closest  to  the  locations  specified  by  the  real  part  of  the  current  element 


of  CSEC.  While  the  data  of  the  intensity  and  amplitude  can  readily  be  ploted  as  they  are 


available  in  the  array(s)  SRF  (SRFI),  the  data  for  the  phase  sections  have  to  be  calculated 


first  by  this  subroutine. 


The  plotted  phase  data  are  calculated  as  follows:  The  field  magnitude  at  the  fixed  grid 


point  ISEC  is  computed.  If  its  maximum  is  less  than  10~9°  the  field  information  is  deemed 


unreliable  and  no  phase  curve  will  be  drawn.  Furthermore  all  locations  where  the  magnitude 


is  less  than  the  maximum  magnitude  divided  by  10s  are  deemed  unreliable  and  no  phase 


curve  points  are  shown.  The  arctangent  of  the  ratio  of  the  imaginary  to  real  field  amplitudes 


provides  the  raw  phase  data.  It  is  assumed  that  the  numerical  resolution  of  RAM2D1  is 


sufficient  to  provide  raw  phase  data  that  do  not  vary  by  more  than  ±x  from  grid  point  to 


grid  point.  The  first  raw  data  point  is  placed  within  ±jt  of  zero  phase.  All  consecutive  raw 


data  points  are  tested  if  they  were  reached  by  a  phase  change  that  implies  a  crossing  of 


PSffiW »^* iVt 
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the  negative  real  axis  of  the  amplitude  vector  in  which  case  2?r  will  be  added  or  subtracted 


to  all  following  phase  points  depending  on  an  implied  phase  wind-up  or  wind-down.  By 


this  method  phase  variations  crossing  multiple  2x-intervals  can  be  followed.  In  case  of 


intermittent  unreliable  data  points  the  next  reliable  phase  is  placed  within  the  2x-interval 


of  the  previous  reliable  phase  point. 


The  subroutine  NYSXIS  finds  “nice”  end  values  and  interval  step  sizes  (used  for  cus¬ 


tomized  axis  labeling)  outside  of  the  range  that  is  specified  by  a  choice  of  two  from  the 


following  four  values  in  the  subroutine  arguments:  the  maximum  value  in  the  vector  VEC, 


the  minimum  value  in  VEC,  VECBOT,  and  VECTOP.  The  decision  which  quantities  constitute 


the  reference  interval  depends  on  the  value  of  the  argument  NECLEC. 


If  NECLEC  =  -1:  VECBOT  and  VECTOP  are  chosen  and  the  vector  VEC  is  neglected. 


=  0:  then  the  maximum  and  minimum  of  all  four  are  chosen 


=  1:  then  the  extrema  of  VEC  are  chosen  and  VECBOT  and  VECTOP  are  neglected. 


It  is  also  possible  to  “hard-wire*  the  lower  (upper)  end-value  to  the  cur¬ 


rent  value  of  VECBOT  (VECTOP)  by  setting  the  argument  VECGAP  to  -1.0 
(1.0)  as  input.  If  VECGAP  =  2.0  on  input  both  end  values  are  “hard-wired.” 
The  subroutine  NYSXIS  finds  the  extrema  of  the  input  data.  Then  it  determines  the 
largest  integral  power  of  ten  (XTRPOW)  that  is  still  smaller  than  the  larger  of  the  absolute 


values  of  the  extrema.  Based  on  XTRPOW  the  leading  two  decimal  places  of  the  extrema  are 


compared  with  each  other.  The  possible  difference  is  placed  into  one  of  seven  interval  classes 
with  the  following  interval  sizes:  0.005,  0.05,  0.1,  0.2,  0.5,  1.0,  2.0  times  XTRPOW.  The  end 
values  that  will  be  returned  are  chosen  to  be  one  interval  beyond  the  integer  that  is  closest 
to  the  original  extrema.  If  the  hard-wiring  option  was  chosen  the  hard-wired  end  value  is 
re-  instated  before  the  interval  and  end  values  are  returned  to  the  calling  routine. 
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m.  SCIENTIFIC  STUDIES 


m.A.  Transient  Raman  Interactions 

The  study  of  transient  Raman  effects  has  been  an  important  focus  of  scientific  activity 
since  the  original  papers  of  Wang3  and  of  Carmen,  et  al.*  Recent  experiments  at  the  Naval 
Research  Laboratory5  have  reinvigorated  basic  research  in  this  area  and  opened  up  new 
questions  relating  to  the  evolution  of  pulses  in  this  regime.  The  basic  equations  are 


dEL  .kL 

Is  =  -'Ts*'qEs  ■ 


dEs 

dz 


=  El  , 


(3.1) 


dQ 

—  +  rg  =  -tKiEgEL  , 


where  El  and  Es  are  the  pump  and  Stokes  fields,  z  and  t  are  axial  distance  along  the 
Raman  interaction  cell  and  time  with  ^-dependent  origin,  kL  and  ks  are  the  pump  and 
Stokes  wavenumbers,  and  and  Kj  are  Raman  coefficients. 

We  have  carried  out  analytical  and  numerical  calculations,  both  to  gain  insight  into 
behavior  that  has  been  observed  experimentally  at  NRL  and  to  predict  the  behavior  that 
would  be  observed  in  regimes  not  yet  accessed  by  the  experiments.  Virtually  all  the  analyti¬ 
cal  work  is  summarized  in  the  preprint  “Asymptotic  evolution  of  transient  pulses  undergoing 
stimulated  Raman  scattering,”  which  i«  included  in  Appendix  C  of  this  report  and  will  not 
be  repeated  in  detail  here.  Basically,  we  have  shown  that  if  the  amplitude  of  the  initial 
Stokes  is  small  compared  to  the  amplitude  of  the  initial  pump,  then  the  pulse  evolution 
passes  through  two  main  regimes.  Initially,  the  Stokes  grows  exponentially  while  the  pump 
is  essentially  undepleted.  During  this  growth,  the  phase  of  the  Stokes  pulse  locks  onto  the 
pump  phase.  This  regime  was  studied  by  Carmen,  et  al*  using  simple  linear  theory.  We 
call  it  the  /-regime.  This  regime  is  followed  by  a  transition  regime  in  which  pump  depletion 
becomes  significant.  Finally,  there  is  the  7-regime  in  which  the  Stokes  intensity  remain 
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almost  constant  while  the  pump  slowly  depletes. 

We  now  turn  to  our  computational  studies,  considering  first  the  7-regime.  In  Figs.  3.1- 
3.2,  we  show  the  variation  of 

*=  [/_oo00*i^ij(o)//r00*i^ij(f)]a 

vs.  f  =  KiKjz  K(t )  dt,  where 

Ff(t)  =  |^|*(f,t)  +  ^l^s|J(f,0-  (3.2) 

The  theory  indicates  that  R  should  vary  linearly  with  f  at  sufficiently  large  f.  This  trend  is 
observed  in  Fig.  3.1.  Moreover,  linear  behavior  is  observed  when  R  £  10  which  corresponds 
to  approximately  70%  depletion  of  the  pump.  In  Fig.  3.2,  we  show  on  a  parabolic  scale 
vs.  f  the  number  of  zero-crossings  N  of  the  pump  amplitude.  Theory  indicates  that  N* 
should  be  proportional  to  f.  This  result  is  confirmed  in  Fig.  3.2.  We  note  that  in  all  cases 
the  expected  asymptotic  behavior  is  observed  for  f  £  120,  and  the  original  Stokes  has  an 
intensity  0.001  that  of  the  pump. 

In  Fig.  (3.3)  and  (3.4),  we  show  the  effect  of  varying  the  Stokes  offset  for  pulses  with 
an  initial  sechJ  amplitude  and  a  FWHM  of  40  ps.  At  negative  offsets  there  is  a  tendency 
for  depletion  to  be  delayed  while  the  number  of  zero-crossings  increases  linearly  beyond  a 
relatively  short  distance.  When  t0g  =  -40  ps,  the  pump  must  be  90%  depleted  before  linear 
variation  of  R  is  observed.  At  t0g  =  -20  ps,  one  finds  that  R  begins  to  scale  linearly  when 
the  pump  is  85%  depleted.  At  t0g  >  0  ps,  this  requirement  reduces  to  70%  depletion.  In 
all  cases,  linear  behavior  is  observed  to  set  in  when  f  =  100-200,  with  the  highest  vlaues 
occuring  at  the  most  negative  offsets.  Conversely,  when  t0g  >  0,  there  is  a  tendency  for 
the  oscillations  of  the  pump  amplitude  to  be  delayed.  If  we  add  the  effect  of  chirp  onto 
the  pump  pulses,  there  is  little  effect  until  the  chirp  becomes  quite  sizable.  With  a  phase 


variation  of  9.5*,  we  find  an  increase  by  under  50  in  the  f -values  at  which  linear  behavior 
of  R  sets  in.  Otherwise,  the  qualitative  behavior  remains  the  same. 

Turning  now  to  consideration  of  the  /-regime,  we  consider  the  effect  of  the  Stokes  pulse 
offset  on  its  gain  over  a  fixed  distance  (40  cm)  and  its  ability  to  phase  lock  to  the  pump. 
For  a  symmetric  pulse  with  an  initial  sechJ  amplitude,  a  40  ps  FWHM,  an  initial  maximum 
pump  intensity  of  1.0  Gwatts/cm1,  and  an  initial  Stokes  intensity  0.001  the  pump  intensity, 
we  list  the  dependence  of  gain  and  locking  on  offset  in  Thble  III.l.  The  chirp  referred  to  is 
approximately  *,  which  is  the  experimental  magnitude.  In  Fig.  3.5,  we  show  the  phases  at 
z  =  40  cm  for  three  values  of  t0g.  Phase  locking  is  complete  at  tcff  =  -20  ps  and  tofl  =  0 
cm  but  is  incomplete  at  t0g  =  0  cm. 

Finally,  we  have  carried  out  numerical  calculations  aimed  at  understanding  the  rapid 
phase  flip  which  is  observed  experimentally  to  travel  from  the  back  to  the  front  of  the  pulse 
in  the  /-regime.  We  generally  observe  from  our  numerical  studies  that  a  fast  phase  flip  can 
be  obtained  at  a  particular  gain  for  a  fixed  chirp.  As  we  raise  the  gain,  this  fast  phase 
flip  disappears  and  phase  locking  occurs  in  contrast  to  the  experimental  observations.  It 
appears  at  this  point  that  we  will  have  to  take  into  account  diffractive  effects  in  order  to 
have  any  hope  of  explaining  the  experimental  observations,  and  we  will  carry  out  those 
studies  shortly. 

m.B.  Beam  Interactions  in  the  Stationary  Limit 

In  this  section  we  outline  a  number  of  analytical  calculations  which  we  have  made  in 
the  stationary  limit  to  clarify  the  effect  of  aberrations  and  a  finite  interaction  length  on 
the  interaction  of  pump  beams  with  a  Stokes  beam  in  both  collinear  and  crossing  beam 
geometries. 

In  studying  a  multiple  beam  geometry,  we  may  assume  that  the  pump  beam  has  the 
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Variation  of  Gain  and  Locking  With  Offset 


No  Chirp  Chirp 

Offset  Gain  Gain  Locking 


-100 

1.0 

1.0 

locked 

-75 

2.5 

1.25 

locked 

-50 

15 

5.8 

locked 

-25 

42 

15 

locked 

— 

0 

43 

23 

locked 

25 

17 

11 

partially  locked 
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EL  -  /-»[y+ (nyo/^o)«  -  nyo,z]expj-ifci(nyo/zo)[y+  -(ny0/z0)z]}  ,  (3.3) 

n=W  ^  J 


where  the  /„  give  the  shapes  of  the  individual  beams.  The  first  argument  gives  the  rapid 
transverse  variation.  The  second  argument  gives  the  slow  z- variation  due  to  diffraction. 
The  quantity  y0  gives  the  intrinsic  separation  between  the  beams  when  z  =  0  while  z0  is 
the  z- value  at  which  all  the  beams  converge.  Noting  that 


*(k)  =  ^  j_  *(y)exp(-i'fcy)dy  , 


we  find 


^L(k)  =  fn[k  =  kL(ny0/z0),  z] 


exp  1 1  [A:  +  ki(ny0/z0)]  [(ny0/2zo)z  -  ny„]  } 


In  the  Fourier  domain,  El  consists  of  a  set  of  offset  peaks.  In  all  experiments,  the  width 
of  these  peaks  (Aif)bt,m  can  be  assumed  small  compared  to  the  fundamental  separation 
between  the  peaks  (AK),ep  =  Uq/zq.  When  the  beams  are  well-separated  in  the  coordinate 


domain,  they  have  rapid  amplitude  modulations  in  the  Fourier  domain;  when  the  beams  are 


nearly  overlapping,  these  amplitude  modulations  are  slow. 


We  note  that  the  condition  (AJf)bt»m  <$;  (AK)ttp  results  in  the  nonlinear  terms  com¬ 


bining  like  convolutions.  The  basic  equations  reduce  in  the  stationary  limit  to 
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We  now  find,  letting  yn  =  y  +  (nyo/zo)z  -  nyo,  z„  =  z,  and 
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Es  =  ff"(yn,*n)exp{-i*s(nyo/xo)[y+  ^(nyoAo)*]} 


that 
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k=-N  l=-N  m=-,V 


where  we  impose  the  condition  k  —  l  +  m~  n  =  0.  Terms  which  do  not  satisfy  this  condition 
are  too  rapidly  varying  in  y  to  be  consistent  with  the  condition  (A K)tep  <SC  (A/f)be»m- 

In  general,  the  exponential  factor  in  Eq.  (3.8)  is  also  rapidly  varying.  Exceptions  are 
when  fc3  =  /3  and  m3  =  n3,  in  which  case  this  factor  disappears.  It  turns  out  that  only  these 
cases  make  non-zero  contributions  to  dgn/dzn.  This  issue  is  discussed  in  great  detail  in  the 
paper  “Pump  replication  in  stimulated  Raman  scattering  using  a  crossed-beam  geometry” 
which  we  presented  at  the  1988  SPIE  meeting  in  Los  Angeles  in  session  874.  This  paper  is 
included  in  Appendix  C,  and  we  do  not  present  the  details  here.  This  paper  has  a  discussion 
of  the  effect  of  pump  aberrations  on  side  beam  replication  which  we  also  do  not  repeat. 

At  this  point  we  discuss  the  effect  of  geometry  on  Stokes  beam  amplification  in  the 
low  Fresnel  number  regime  where  diffraction  can  be  ignored.  We  consider  as  a  simple 
example  two  crossing  beams  with  Gaussian  profiles  interacting  with  a  single  Stokes.  Thus, 
k  —  -l  =  ±1  and  m  =  n  =  0  in  Eq.  (3.8).  Writing 
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we  conclude  that 
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Integrating  Eq.  (3.10),  we  find 
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The  maximum  gain  which  is  achieved  in  the  limit  yo  :»  tw  and  z  £  2  z0  is 

QZqEq 


»o(v,^)  =  «(*.0).xp(j2^j)  . 


(3.12) 


The  gain  saturates  because  the  pump  and  Stokes  beams  only  interact  over  a  limited  length. 

When  a  pump  beam  is  aberrated,  its  linear  propagation  is  strongly  affected.  Suppose 
we  consider  a  Gaussian  beam  with  phase  aberrations 


Eq 
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(3.13) 


were  <p( y)  is  a  randomly  varying  phase.  Then  El  for  z  >  0  can  be  determined  by  solving 
the  linear  equation 
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We  find  that 
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If  we  assume  a  Gaussian  autocorrelation  length, 


(3.14) 


(3.15) 
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we  conclude 
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In  the  limit  where  /  »  tu,  we  see  that  Eq.  (3.17)  goes  over  to  the  standard  result  where  the 
pulse  spreads  to  %/2  times  its  width  over  a  length  z  =  k^w1.  In  the  limit  where  u;  »  /,  so 
that  the  beam  is  highly  aberrated,  the  pulse  spreads  to  y/2  times  its  original  length  over  a 
distance  z  =  k^wljs/i. 

The  phase  aberrations  rapidly  translate  into  amplitude  aberrations  so  that  the  intensity 
fluctuates  as  it  spreads.  To  determine  the  size  of  these  fluctuations,  one  must  in  principal 


calculate 


<l**l4>  -  ((IStl)*)1 


A  detailed  calculation  of  this  quantity  is  rather  messy,  but  intuitively  we  expect  that 
(|£x|4)  ~  (|£x|2)2  at  a  distance  short  compared  to  the  aberration  Fresnel  length,  dp  =  l^ki, 
and  (|£^|4)  ~  2 ( | | 3 ) *  at  distances  long  compared  to  dp-  Roughly  speaking,  we  can 
consider  Ex,  viewed  as  a  function  of  y  to  vary  on  a  length  scale  /.  If  w  =  nl,  where  n 
is  some  integer,  then  the  original  beam  has  n  independent  emitters,  Ej,  i  =  l,n.  At  a 
distance  z  =  Nl,  the  number  of  emitters  which  contributes  is  roughly  N  =  z/l  if  N  <  n  or 
n  otherwise.  We  now  find 
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where  we  assume  that  the  expectation  for  each  individual  emitter  is  the  same.  Writing  now 


we  conclude 
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when  N  is  large.  To  pin  down  the  connection  with  the  Fresnel  length,  we  note  that  when  z 


is  small 


i  d*EL  I 


where  the  second  derivative  is  evaluated  at  z  =  0.  Using  Ea.  (3.13),  we  now  find 

IStWI*  =  l^(0)|>  -  . 


(3.21) 


(3.22) 


Noting  that  |y>',(y)|  ~  l/l3,  we  conclude  that  the  amplitude  aberrations  appear  over  a  length 


Once  amplitude  aberrations  appear,  they  can  have  a  deleterious  affect  on  collinear  beam 
amplification,  particularly  in  the  high  gain  regime.  When  gE\dfl 4xw3  »  1  and  w  :»  /, 
then  we  are  in  the  high  gain,  highly  aberrated  regime.  We  may  ignore  to  lowest  order  the 
effect  of  diffraction  on  the  Stokes  beam  amplification.  In  the  central  part  of  the  beam  where 


y  <?;  to,  we  may  write 
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where  a(y)  =  |£x|a/(|£k|a).  The  quantity  a(y)  is  Gaussian-distributed  and  (a(y))  =  1. 


Specifically, 


/(a)  =  ^oexp(-xoa/4) 


(3.24) 


gives  the  probability  distribution  function  of  a.  We  then  find 
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at  large  z.  In  effect,  the  amplitude  aberrations  in  the  pump  lead  to  high  amplitude  spikes 
which  in  turn  leads  to  differential  growth  in  the  Stokes  and  substantial  spikiness.  We  have 
not  carried  out  a  calculation  in  which  we  determine  the  increase  in  the  Stokes  bandwidth, 
but  it  is  clear  that  the  Stokes  can  become  more  aberrated  than  the  original  pump,  a  case 
sometimes  observed  in  practice.8 


In  the  future,  we  intend  to  carry  out  a  series  of  numerical  studies  using  RAM2D1, 
aimed  at  verifying  some  of  these  theoretical  results  in  the  stationary  regime. 


IH.C.  Solitons  and  the  Spectral  Transformation 

If  we  consider  the  usual  transient  equations,  Eq.  (II.A.l),  in  the  limit  of  pulses  very 
short  compared  to  Tj  so  that  we  may  set  T  =  0,  we  obtain  the  following  solitary  wave 
solution 

El  —  a  sech(az  -  fit)  , 

Es  =  y|^ciatanh(az  -  fit)  ,  (3 ,26) 

Q-~  -  pt)  , 

where  fi  =  kik^o1  /a  which  implies  that  the  pulse  is  sub-luminous.  This  pulse  has  the 
remarkable  property  that  |Es|  tends  to  a  non-zero  value  as  t  — »  ±oo.  Unfortunately,  this 
property  is  not  physical  in  the  limit  of  short  pulses.  Nonetheless,  it  can  be  effectively 
true  in  situations  where  pulses  are  initially  long  compared  to  Tj,  and  the  Stokes  pulse 
undergoes  a  rapid  phase  flip  at  some  point.  It  is  in  this  context  that  solitons  have  been 
observed  experimentally.7,8  Indeed,  there  are  theoretical  considerations  which  indicate  that 
dissipation  plays  an  important  role  in  the  soliton’s  formation.9,10  Virtually  all  theoretical 
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work  to  date  haa  focussed  on  the  case  where  the  original  Stokes  pulse  has  a  180°  phase 
flip.  It  is  of  some  interest  to  determine  how  close  to  180°  the  phase  flip  must  be  before  a 
soliton,  or  more  precisely  a  soliton-like  structure,  will  form.  We  have  considered  this  issue 
and  intended  to  report  on  it  at  the  July  ’88  IQEC  meeting  in  Tokyo,  Japan.  (The  high 
cost  of  travel  to  Japan  has  prevented  us  from  attending.)  The  summary  for  this  meeting  is 
included  in  Appendix  D,  and  we  do  not  repeat  the  details  here.  We  conclude  that  if 


Es  =  KT st  xKs 


in  the  neighborhood  of  the  phase  flip,  then  a  soliton  will  form  if 


—  ^i<l 
rs  k 


(3.27) 


(3.28) 


Another  issue  of  some  importance  is  the  possible  generation  of  a  series  of  solitons  when  a 
series  of  pump  pulses  is  injected  into  a  Raman  cell.  The  evolution  of  a  series  of  pulses  has 
been  considered  by  Reintjes,  et  al.11  and  it  is  of  some  interest  to  determine  whether  a  series 
of  solitons  can  emerge  from  these  pulses.  We  have  not  considered  this  issue  in  any  detail, 
but  it  is  of  some  interest  to  point  out  that  the  transient  equations  do  have  periodic  solutions 
when  T  =  0.  Typical  solutions  are 


El  =  a  cn(az  -  Pt\m)  , 

fits 

Es  =  y  sn(az  -  /9t|m)  , 


(3.29) 


where  a/9  =  /cl/cjo*/m.  Whether  this  solution  is  realizable  in  practice  will  be  determined 
in  future  investigations. 

We  now  turn  to  a  discussion  of  the  spectral  transform  method  which  applies  in  the 
limit  of  short,  transient  pulses.  There  are  theoretical  reasons  to  suspect  that  solitons  in 
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these  systems  are  always  transient.  On  physical  grounds,  we  might  anticipate  this  result  as 


the  quantity 


K  =  \EL\2  +  ^\ES\3 
*s 


(3.30) 


is  constant  at  every  t-point  while  solitons  are  sub-luminous.  Hence,  we  expect  them  to 
disappear  at  the  back  end  of  the  pulse.  We  shall  see  that  the  spectral  transform  method 
has  peculiarities  in  our  case  which  result  in  solutions  of  very  different  character  from  those 
which  are  normally  found  when  spectral  methods  can  be  used. 

We  first  make  a  change  of  variables  so  that  our  notation  follows  that  normally  used 
in  this  field.9,13,13  We  let  Ax  =  EL,  At  =  [kL/ks)1/L  Es,  X  =  i(,kL/ksyl7Q,  e  =  T/ku 


r  =  Kit,  and  x  =  ,  yielding 


-  =  -xa2  , 


«  —  XA\  i 

dx 

dX  v  A 

+  cX  —  AiAt  ■ 


(3.31) 


We  apply  the  spectral  transform  approach  in  the  limit  where  we  may  set  e  =  0.  Following 


Kaup,9  we  first  consider  two  new  quantities  ui  and  u3  which  satisfy  the  equations 

dui  i 

a7-ri  =  *“’  ' 


where 


— +-u,  =  -X  u,  , 

dui  .  _  „ 

—  +  ifS3u1  =  j5+u3  , 

—  - tfS3uj  =  -fS_ui  , 

dr 


S%=-(AiA\- A*A\)  , 
4 

S+  =  -AjAx  , 


(3.32) 


(3.33) 


(3.34) 


s_  =  s;  . 


rat. 


Equations  (3.32)  and  (3.33)  are  compatible ,  t.e.,  their  cross-derivatives  are  equal,  only  if 
Eq.  (3.31)  holds  with  e  =  0.  At  this  point,  we  define  the  quantities 


A  — -(AiAJ  +  AjAJ)  , 


the  angles  ft  and  0  through  the  relations 

Si  =  A  cos  ft  , 

S+  =  Aext  sin  ft  , 

and  the  angle  7  through  the  compatibility  relations 

d~t  dO 

-  =  008  B - 

ftr  Pdr  ’ 


•jr-  =  — — ^(-Xi  cos  0  -  X2  sin  9) 
d\  sin  ft  ' 


where  we  have  decomposed 


X  =  X1-iX j  . 


We  define  as  well  the  matrices, 

T  =  /  cos(7/2)  +  t'as  sin(7/2)  , 

B  =  I cos(/9/2)  iai  sin(£/2)  , 

8  =  /  cos(0/2)  +  iffj  sin(0/2)  , 
where  0 1,  <72,  and  as  are  the  Pauli  matrices.  Finally,  we  let 

V=(Ul  ?l)  , 

\U2  U  2/ 

where  (ui,U2)  and  (61,62)  are  two  independent  solutions  of  Eq.  (3.33). 
formation 

v  =  rse-1£f  , 

we  have  verified  after  substantial  algebra  that  V  satisfies  the  equation 


(3.35) 

(3.36) 

(3.37) 

(3.38) 

(3.39) 

(3.40) 

Making  the  trans- 

(3.33) 


where 


'=  ^  Adr'  , 

J  —  OO 


9=  7^~Z^[eilainP}  ■ 


(3.43) 


2cos  0dT‘ 

Equation  (3.42)  has  the  standard  form  of  the  AKNS  systems.14  We  impose  the  boundary 
condition  V{r  — »  —  oo)  =  <rs  and  let  V(r  — *  +oo)  =  YSla s,  where 


o 

/ 

0 

e‘f  7-  ) 

1  , 

H 

= U  i)  ■ 


(3.44) 


a,  3,  b,  b  are  the  usual  scattering  coefficients,  and  T «,  =  T(r  =  +oo).  We  now  find 

ot r  •  * 

—  =  -TBetB-'T-'V  -  -VasYoBoatBo'Ti ‘<r8  , 


(3.45) 


where  the  subscripted  matrices,  Bo  and  r0,  are  B  and  T  in  the  limit  r  — ►  —  oo.  Once  the 
evolution  of  V  is.  known  in  the  limit  r  =  oo,  we  can  determine  o(x),  a(x),  Hx)>  and  6(x)- 
Where  q  is  compact,  i.e.  is  finite,  o,  a,  b,  and  b  are  all  analytic  as  a  function  of  f.  We 
now  define 


°M“s/c !«-“•*  ■ 

w-hJA*’*' 


(3.46) 


where  the  contour  C  goes  over  all  the  zeroes  of  a  and  &  goes  under  all  the  zeroes  of  a. 
Solving  the  linear  equations 

L{x,  y)  +  G(x  +  y)  -  J  L{x,a)G{a  +  y)  da  =  0  , 

L(x,  y)  +  ^  G(x  +  y)  +  J  L(x,a)G(a  +  y)  da  =  0  , 

we  can  find  q{x)  using  the  relation 


(3.47) 


q(x)  =  2li(x,x) 


(3.48) 


In  standard  AKNS  systems,  the  evolution  of  the  scattering  is  quite  simple,  while  the  zeroes 
of  a  and  a  are  fixed  and  correspond  to  solitons.14  In  our  problem,  that  is  no  longer  the  case 


ss  X  ^  0  in  general  in  the  limit  r  — ►  oo,  and,  hence,  the  evolution  of  the  spectral  data 
cannot  be  easily  determined.  Fortunately,  Kaup13  has  shown  that  solving  the  equation 
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dV  i 

—  --V<T&roBo<raBQ  1ro<7,s  , 


(3.49) 


will  still  yield  the  correct  answer  for  q  when  the  previously  outlined  procedure  is  followed. 


However,  the  spectral  data  obtained  in  this  way  is  not  true  spectral  data.  The  zeroes  of 


a  and  a  are  not  fixed  and  no  longer  correspond  to  solitons.  To  illustrate  this  point,  we 
consider  a  simple  example  already  studied  by  Duncan,  et  al.s  We  suppose  that  the  Stokes 


is  initially  a  multiple  of  the  pump.  We  then  find  that 


?(x  =  0)  =  0 


(3.50) 


From  Eq.  (3.49),  we  find 


ax  =  -^[acos/?o  -  *£sin  0o]  , 


T  | 

bx  =  --[iasin0o  -  &cos0o]  ■ 


(3.51) 


Sx=  -  [a  cos  fo  +  ib  Bin  $0]  > 


bx  =  —  -  [ia  sin  0o  +  b  cos  0O]  . 


Using  Eq.  (3.50),  it  now  follows  that 


G(2T)  =  —  l  »sin^ 

2jt  Jc  (1  -  cos/?o)e' 


«sin£o[«  ’x/f  -  e**/f] 


C  (1  -  cos  /?o)e<x/f  +  (1  +  cos/3o)e"*x/f 


ii<Tds  . 


(3.52) 


When  0q  ~  0,  the  zeroes  of  the  integrand  lie  in  the  upper  half  plane,  there  are  an  infinite 


number  of  them  clustering  about  the  essential  singularity  at  f  =  0,  and  they  explode  outward 


as  x  increases.  We  have  yet  to  make  a  complete  evaluation  of  Eq.  (3.52),  not  to  mention  a 


determination  of  L(x,y)  and  L(x,  y).  We  may  consider  this  problem  in  the  future. 


It  is  possible  to  show  however  that  when  x  i8  small,  the  usual  linear  result  is  reproduced. 


Expanding  the  integrand  of  Eq.  (3.52)  as  a  power  series  in  0o,  assuming  that  it  is  small,  we 


.wwwwnvi 


find 


V- 


f 


G(2T)  -  f  (1  -  eiix^)e~ii{T  d$  ,  (3.53) 

where  the  contour  +  is  a  small,  positive  circle  around  f  =  0.  Recalling  the  relation 


exp 


2^ +1/0 


=  E  tkI*(y)  . 


(3.54) 


k——oo 


we  find 


a(2T)  = 


(3.55) 


Writing  now 


.dp 


‘dT  =  9(T)  =  2Ll(r*T)  -  -2G(2T) 


(3.56) 


we  finally  conclude 


P(T)  =  p0Io[*W)1/i]  , 


(3.57) 


a  result  which  had  earlier  been  obtained  by  Duncan  et  al .*  using  more  elementary  methods. 
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APPENDIX  A 
Code  Listings 


Typical  namelists  and  output  are  included  in  the  manual  (Appendix  B). 


RAM2D1  (version  C) 


1  PROGRAM  RAM201C 

2  C 

3  C  THIS  IS  VERSION  C  OF  THE  TRANSIENT  RAMAN  AMPLIFIER  CODE 

4  C  R  A  M  2  0  1.  THIS  VERSION  IS  ADAPTED  TO  RUN  ON  THE  CENTRAL 

5  C  COMPUTING  FACILITY  AT  THE  NAVAL  RESEARCH  LABORATORY. 

6  C 

7  C  RAM2D1  WAS  WRITTEN  BY  CURTIS  R.  MENYUK  11/86  TO  SOLVE  THE 

8  C  COUPLED  RAMAN  EQUATIONS  WITH  BOTH  TRANSIENT  ANO  DIFFRACTIVE 

9  C  PHENOMENA  ACCOUNTED  FOR.  THE  EQUATIONS  ARE  ADVANCED  IN  THE 
16  C  Z-DIRECTION .  THE  BEHAVIOR  IN  THE  TIME  "DIRECTION-  AND  THE 

11  C  TRANSVERSE  (Y)  DIRECTION  ARE  DETERMINED  AT  EACH  Z-STEP.  HENCE. 

12  C  THIS  COOE  IS  2+10.  THE  TWO  QUANTITIES  THAT  ARE  ADVANCED  AT  EACH 

13  C  STEP  ARE  THE  PUMP  ANO  THE  STOKES  AMPLITUDES.  IN  ADDITION,  THE 

14  C  MATERIAL  EXCITATION  MUST  BE  DETERMINED  AT  EACH  STEP  THROUGH  A 

15  C  CONSTRAINT  EQUATION. 

16  C 

17  C  THE  SYSTEM  OF  EQUATIONS  IS  SOLVED  USING  A  SEMI-SPECTRAL  APPROACH. 

18  C  THE  Y-OERIVATIVES  OF  THE  DYNAMICAL  EQUATIONS  (THE  EQUATIONS 

19  C  GOVERNING  THE  PUMP  AND  STOKES  WAVES)  ARE  DETERMINED  IN  KY-SPACE. 

26  C  ANO  THE  NONLINEAR  TERMS  ARE  DETERMINED  IN  Y-SPACE.  THERE  ARE  NO 

21  C  T-DERIVATIVES  IN  THE  DYNAMICAL  EQUATIONS  ANO  HENCE  NO  NEED  TO  USE 

22  C  OMEGA  SPACE.  THE  CONSTRAINT  EQUATION  (THE  EQUATION  GOVERNING 

23  C  THE  MATERIAL  EXCITATION)  DOES  CONTAIN  A  T-DERIVATIVE  BUT  NO 

24  C  Y-DERIVATIVE. 

25  C 

26  C  THE  CONSTRAINT  EQUATION  IS  SOLVED  FOR  Q(EL.ES).  SUBJECT  TO  THE 

27  C  APPROPRIATE  BOUNDARY  CONDITION  (THE  MATERIAL  EXCITATION  IS  ZERO 

28  C  WHEN  T  GOES  TO  MINUS  INFINITY).  IT  IS  SOLVED  FOR  IN  ONE  OF  THREE 

29  C  WAYS.  DEPENDING  ON  THE  PARAMETER  REGIME:  1)  WHEN  NT  IS  EIGHT  OR 

36  C  LESS.  A  SET  OF  1-D  STATIONARY  CASES  IS  RUN.  2)  WHEN  MAX(ABS(T/TTWO)) 

31  C  <  10. e  AND  NT  >  8,  A  RUNNING  SUM  IS  PERFORMED.  IN  THIS  APPROACH.  IT 

32  C  IS  NOT  NECESSARY  THAT  Q-0  AT  TMAX .  3)  WHEN  MAX(ABS(T/TTWO) )  >  10.0 

33  C  AND  NT  >  8.  A  FOURIER  TRANSFORM  APPROACH  IS  USED. 

34  C 

35  C  THE  DYNAMICAL  EQUATIONS  ARE  ADVANCED  IN  Z  USING  A  MIDPOINT  EULER 

36  C  METHOD  WITH  ONE  SPECIAL  MODIFICATION  -  THE  LINEAR  PORTION  OF  EACH 

37  C  EQUATION  IS  ADVANCEO  IN  SUCH  A  WAY  THAT  IT  IS  SOLVED  EXACTLY  TO 

38  C  WITHIN  ROUNDOFF.  IN  THIS  VERSION,  THE  STEP  SIZE  IS  FIXET . 

39  C 

40  Q  --  -  -  -  -  -  -  -  -  -  - -  - - 

41  C  TIME  IS  DIMENSIONED  IN  PICOSECONDS;  DISTANCE  IS  DIMENSIONED  IN 

42  C  CENTIMETERS;  AND  POWER  IS  DIMENSIONED  IN  GIGAWATTS.  ALL  OTHER 

43  C  QUANTITIES  ARE  CORRESPONDINGLY  DIMENSIONED. 

44  C  - 

45  C 

46  C  •••*••• . . . . . 

47  C  MODIFICATION  4/87: 

48  C  THIS  PROGRAM  ASSUMES  THAT  WHEN  NY  IS  EIGHT  OR  LESS.  A  SET  OF  1-D 

49  C  TRANSIENT  CASES  WITH  NO  Y— VARIATION  ARE  BEING  RUN. 

50  C  NOTE:  ONE  MUST  SET  ICOND-3  IN  THIS  CASE  FOR  THE  PROGRAM  TO 

51  C  INITIATE  PROPERLY 

52  C  •••••••••••*•••••••••••••••**•••**•••••••*••***•••••**••••••*•****••** 

53  C  MODIFICATION  5/87: 

54  C  THIS  PROGRAM  ASSUMES  THAT  WHEN  NT  IS  EIGHT  OR  LESS.  A  SET  OF 

55  C  STATIONARY  CASES  WITH  NO  T-VARIATION  ARE  BEING  RUN.  IN  THIS 

56  C  CASE  CFFT2  IS  CALLED  TO  CARRY  OUT  THE  FOURIER  TRANSFORMS 

57  C  SERIALLY.  RATHER  THAN  CARRYING  THEM  OUT  IN  PARALLEL  AS  IN  THE 

58  C  2-D  CASE. 

59  C  NOTE:  ONE  MUST  SET  ICOND-4  IN  THIS  CASE  FOR  THE  PROGRAM  TO 

60  C  INITIATE  PROPERLY 

61  . . . . . . . 

62  C  MODIFICATION  9/87: 

63  C  THE  DATA  OUTPUT  FILE  NAME  WAS  CHANGED  FROM  ’ FRAM ’  TO  THE  FOLLOWING: 


RAM2D1  (version  C) 


IJSk 


64  C 

65  C 

66  C 

67  C 
66  C 
69  C 

76  C 

71  C 

72  C 

73  C 

74  C 

75  C 

76  C 

77  C 

78  C 

79  C 
86  C 

81  C 

82  C 

83  C 

84  C 

85  C 

86  C 

87  C 

88  C 

89  C 
96  C 

91  C 

92  C 

93  C 

94  C 

95  C 

96  C 

97  C 

98  C 

99  C 
166  C 

161  C 

162  C 

163  C 

184  C 

185  C 

166  C 

167  C 

168  C 
189  C 
116  C 

111  C 

112  C 

113  C 

114  C 

115  C 

116  C 

117  C 

118  C 

119  C 
126  C 

121  C 

122  C 

123  C 

124  C 

125  C 

126  C 


THE  OATA  FILE  NAME'S  FIRST  CHARACTER  (F)  STANDS  FOR  THE  OLD  DATA 
FILE  NAME  'FRAM'.  THE  SECOND  CHARACTER  INDICATES  THE  T-DIMENSION. 
THE  THIRD  THE  Y-DIMENSION.  THE  DIMENSIONS  ARE  REPRESENTED  BY  THEIR 
NUMBER  (1-8)  IF  LESS  THAN  9.  IF  GREATER  THAN  8  THE  DIMENSIONS  ARE 
ASSUMED  TO  BE  INTEGRAL  POWERS  OF  2.  THE  N-TH  POWER  OF  2  IS 
REPRESENTED  BY  THE  N-TH  CHARACTER  OF  RLFBET .  THE  FOURTH  THROUGH 
NINETH  CHARACTER  IN  THE  FILE  NAME  ENCODES  THE  MONTH.  DAY.  AND  YEAR 
THE  PROGRAM  WAS  STARTED.  A  THENTH  THROUGH  TWELFTH  CHARACTER  IS 
APPENDED.  NUMBERING  THE  PARTIAL  DATA  FILES  THAT  ARE  GENERATED 
WHEN  THE  PROGRAM  RUNS  TWO-D I MENS I ONA L LY  (MAXIMALLY  999  NEW  FILES). 

—VARIABLES— 

NY  -  NUMBER  OF  Y  POINTS  (MUST  BE  A  POWER  OF  2) 

NT  -  NUMBER  OF  T  POINTS  (MUST  BE  A  POWER  OF  2) 

NP  -  MAXIMUM  NUMBER  OF  PUMP  BEAMS 
NPUMP  -  ACTUAL  NUMBER  OF  PUMPS 
YM  -  DELIMITING  Y-VALUES  (CM) 

TM  -  DELIMITING  T-VALUES  (PS) 

ZINT  -  BEAM  INTERSECTION  POINT  (CM) 

RKP  *  PUMP  WAVENUMBER  (CM«*-1) 

RKS  *  STOKES  WAVENUMBER  (CM**-1) 

YOFF  -  Y-OFFSETS  OF  THE  PUMP  BEAMS  (CM) 

TOFF  -  T-OFFSETS  OF  THE  PUMP  BEAMS  (PS) 

YWIDTH  -  Y-WIOTHS  OF  THE  PUMP  BEAMS  (CM) 

TWIDTH  -  T— WIDTHS  OF  THE  PUMP  BEAMS  (PS) 


YOST  -  Y-OFFSET  OF  THE  STOKES  BEAM  (CM) 

TOST  -  T-OFFSET  OF  THE  STOKES  BEAM  (PS) 

YWST  -  Y-WIDTH  OF  THE  STOKES  BEAM  (CM) 

TWST  -  T-WIDTH  OF  THE  STOKES  BEAM  (PS) 

RINT  -  INTENSITY  OF  THE  PUMP  BEAMS  (GW/CM»*2) 

RIST  -  INTENSITY  OF  THE  STOKES  BEAM  (GW/CM**2) 

RAMP  -  AMPLITUDE  OF  THE  PUMP  BEAMS  [SQRT(PS*GW/CM*0)  ] 

RIST  -  AMPLITUDE  OF  THE  STOKES  BEAM  [SQRT(PS*GW/CM*0 ) ] 

RAMASM  -  AMPLITUDE  OF  THE  STOKES  ASSYMETRY 
RALASM  -  STRETCH  OF  THE  STOKES  ASSYMETRY 
NHYP  -  EXPONENT  OF  THE  HYP ERGAUSS I AN  DISTRIBUTION  IN  THE 
Y-OIRECTION  (MUST  BE  AN  EVEN  INTEGER) 

PHL  -  FACTOR  MULTIPLYING  THE  INITIAL  PUMP  CHIRP 
PHST  -  FACTOR  MULTIPLYING  THE  INITIAL  STOKES  CHIRP 
TOC  -  CHIRP  PULSE  TIME  OFFSET  (PS) 

TWC  -  CHIRP  PULSE  T-WIDTH  [SET  TO  TWIDTH(I)]  (PS) 

YWC  -  CHIRP  PULSE  Y-WIDTH  [SET  TO  YWIDTH(i)1  (PS) 

ICOND  -  TYPE  OF  INITIAL  PUMP  AND  STOKES  PROFILES 

-  1:  DOUBLE-SECH  PROFILE 

-  2:  SECH»»2-HYPERGAUSSIAN  PROFILE 

-  3:  1— D  TRANSIENT  CASES  (NO  Y-VARIATION) 

-  4:  STATIONARY  CASE  (TO  T-VARIATION) 

ZSTEP  -  STEP  SIZE  (CM) 

ZH  -  ZSTEP/2  (CM) 

ZFINAL  -  FINAL  Z-VALUE  (CM) 

ZKEEP  -  Z-VALUE  INCREMENT  BETWEEN  POINTS  WHERE  DATA  IS 
STORED  (CM) 

NMAX  -  MAXIMUM  NUMBER  OF  ALLOWED  STEPS  IN  Z  (MUST  BE  LESS  THAN 
OR  EQUAL  TO  NST) 

TTWO  -  DAMPING  TIME  OF  THE  MATERIAL  EXCITATION  (PS) 

GAIN  «  RAMAN  GAIN  FACTOR  ASSUMING  NO  PUMP  DEPLETION  (CM/GW) 
RKAP1  -  KAPPA-1:  NONLINEAR  COEFFICIENT  IN  THE  MATERIAL 
EXCITATION  EQUATION  [S0RT(CM.«3/GW»PS) ] 

RKAP2  -  KAPPA-2:  NONLINEAR  COEFFICIENT  IN  THE  STOKES 
EQUATION  [ SQR T ( CM • • 3/GW • PS ) /CM • PS ] 

SPEED  -  SPEED  OF  LIGHT  IN  VACUUM  (USED  IN  THIS  CODE  TO 


TWC  - 
YWC  - 

ICOND 


ZSTEP  - 


m  in] 

PROFILES 


mm 


RAM2D1  (veraion  C) 


127  C 

128  C 

129  C 
138  C 

131  C 

132  C 

133  C 

134  C 

135  C 

136  C 

137  C 

138  C 

139  C 
148  C 

141  C 

142  C 

143  C 

144  C 

145  C 
148  C 

147  C 

148  C 

149  C 
158  C 

151  C 

152  C 

153  C 

154  C 

155  C 
158  C 

157  C 

158  C 

159  C 
168  C 

161  C 

162  C 

163  C 

164  C 

165  C 

166  C 

167  C 

168  C 

169  C 
178  C 

171 

172 

173  C 

174 

175 
178 

177 

178 

179 
188 
181 
182 

183 

184 

185 

186 

187 

188 
189 


APPROXIMATE  THE  SPEED  OF  LIGHT  IN  THE  MATERIAL)  (CM/PS) 
EL  -  PUMP  ARRAY  (NT*NY) 

ES  -  STOKES  ARRAY  (NT *NY) 

Q  -  MATERIAL  EXCITATION  ARRAY  (NT *NY) 

AEL.AES.AQ  -  SORRESPONOING  FOURIER  ARRAYS 

AN  -  STORAGE  ARRAY  FOR  THE  MIDPOINT  EULER  METHOD  (NT*NY*4> 

CN  -  WORKING  ARRAY  FOR  THE  Y-OIRECTION  FFT  (5*NY/2) 

(LENGTH  MODIFICATION  MADE  5/87  TO  ALLOW  CFFT2  TO  RUN) 

CWQ  -  WORKING  ARRAY  FOR  THE  T-DIRECTION  FFT  (NT) 

USED  WITH  METHOD  2  OF  CONSTRAINT  EQ.  SOLN. 

WQ1 ,WQ2  -  WORKING  ARRAYS  FOR  CONSTRAINT  EQ.  SOLN.  WITH 

METHOD  1  (NT).  THEY  ARE  EQUIVALENCED  WITH  CWQ 
TO  CONSERVE  SPACE 

COMVEC  -  INVERSE  KERNEL  FOR  THE  MATERIAL  EXCITATION  EQUATION 
WHEN  METHOD  2  IS  USED  (NT) 

CYVEC  -  KERNEL  FOR  THE  SECOND  ORDER  Y-DERIVATIVE  OPERATOR  IN 

THE  OYNAMICAL  EQUATIONS.  THE  FINITE  LENGTH  IS  ACCOUNTED 
FOR  SO  THAT  IN  THE  LINEAR  LIMIT  THE  PROPAGATOR  IS  EXACT. 
TWO  VECTORS  ARE  NEEDED  (NY*2) 

NWRT  -  NUMBER  OF  RECORD  GROUPS  IN  UNIT  4 

—VARIABLES.  BOTH  ALTERED  AND  NEW.  1-0  TRANSIENT  CASE— 

NY  -  ACTUAL  NUMBER  OF  CASES  RUN 
I TYPE  -  TYPE  OF  INITIAL  PROFILE 

-  1 :  SECH  PROFI LE 

-  2:  RECTANGULAR  PROFILE 

-  3:  LORENTZIAN  PROFILE 

-  4:  EXPONENTIAL  PROFILE 

RTYPE  -  POWER  TO  WHICH  PROFILE  IS  TAKEN  ( I TYPE  -  1  *  3) 

-  POWER  TO  WHICH  EXPONENT  IS  TAKEN  ( ITYPE  -  4) 

—VARIABLES.  BOTH  ALTERED  AND  NEW,  STATIONARY  CASE— 

NT  -  ACTUAL  NUMBER  OF  CASES  RUN 

AW1.AW2  -  WORKING  ARRAYS  USED  BY  CFFT2  (NY) 

RABAMP  -  FRACTIONAL  CONTRIBUTION  OF  THE  AMPLITUDE  ABERRATIONS 
RDSLIM  ■  NUMBER  OF  TIMES  DISPERSION  LIMITED  THE  PUMP  BEAMS  ARE 
DUE  TO  ABERRATIONS 
[SET  WITH  RESPECT  TO  YWIDTH(I)] 

PARAMETER (NT— 258 , NY-258 . NTHP-1+NT/2 . NP-1 8 , NPM2-NP-2 . NST-4888 . 

1  NS— 5* NY/2) 

IMPLICIT  COMPLEX(A-E.Q) 

DIMENSION  EL(NT.NY) .ES(NT.NY) ,Q(NT,NY) ,AEL(NT .NY) , AES (NT .NY) . 

1  AQ(NT . NY) . AW(NT . NY . 4) . CW(NS) . AW1 ( NY) , AW2(NY) , CYVEC (NY . 2) . 

2  COMVEC (NT) .CWQ (NT) ,WQ1 (NT) , WQ2(Nt ) , YWIDTHlNP ) , TWIDTH(NP) , 

3  YOFF(NP) .TOFF(NP) .RAMP(NP) .RINT(NP) ,PHL(NP) . ITYPE(6) ,RTYPE(8) . 

4  RABAMP (8) . RDSLIM(8) . SFE(NST) . SQ(NST) . SSTEP(NST) . YM(2) . TM(2) 
CHARACTER* 1  D1 

CHARACTER* 2  01A 
CHARACTER *2  D2 
CHARACTER *2  D3 
CHARACTERS  DTFL8 
CHARACTERS  DTFL1 
CHARACTER *6  DTFL1D 
CHARACTERS  DTFL2D 
CHARACTER'S  FDATE 
CHARACTER *9  FRAM 
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190 

191 

192 

193 

194 
193 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 

211  C 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221  C 

222 

223 

224  C 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 


CHARACTERS  FRM 
CHARACTER* 1  ISTP1 
CHARACTER* 1  ISTP2 
CHARACTERS  ISTP3 
CHARACTER* 10  NUMRAL 
CHARACTERS  PDN1D 
CHARACTER* 12  PDN20 
CHARACTER* 12  PDNO 
CHARACTER* 12  PDN1 
CHARACTER*26  RLFBET 
CHARACTER *1  TDIM 
CHARACTERS  YDIM 

EQUIVALENCE  (CWQ.WQ1 ) . (CWQ(NTHP) ,W02) 

NAMEL I ST/NAML/NPUMP , YM . TM , ZI NT , RKP . RKS , YOFF, TOFF . YWIDTH . TWI DTH . 

1  YOST . TOST , YWST , TWST . RINT , RI ST . RAMASM . RALASM , NHYP . PHL . PHST , TOC . 

2  I  TYPE , RTYPE , RABAMP , ROSLIM , ICOND . 2STEP . ZFINAL . 2KEEP . NMAX . TTWO.GAIN 
COMMON/v I N I T/NPUMP , YM , TM . 2 1 NT , YOFF , TOFF , YWI DTH , TWI DTH . YOST . TOST , 

1  YWST , TWST , RAMP , RAST , RAMASM , RALASM . NHYP , PHL . PHST . TOC , I TYPE .RTYPE . 

2  RABAMP. ROSLIM 

COMMON/VARTWO/EL . ES , 0 . AW1 , AW2 . CW . RKP . RKS 

COMMON/VWORK/AEL , AES . AQ , AW , CWQ . COMVEC . RKAP 1 , RKAP2 . TTWO . YFAC . RDT 

DATA  ? 1/3 . 1 41 59265358979/ . SPEED/O . 0299779/ 

DATA  YM/-0 .3.0.3/. TM/- 100.0,100.0/. NPUMP/2/ . GA I N/3 . 0/ . 

1  R I NT/NP.0 . 53/ , R I ST/0 . 003/ . TTWO/633 . 0/ . YOFF/0 . 1 4 . -0 . 1 4 . NPM2  *0 . 0/ . 

2  TOFF/NP*O.0/.YWIDTH/NP*O. 1 0/ . TWIDTH/NP.40 . 0/. YOST/O . 0/ . 

3  TOST/— 40 . 0/ . YWST/0 .10/. TWST/40 . 0/ . RAMASM/ 1 . S/ . RALASM/5 . 0/ , 

4  NHYP/8/ , PHL/NP.O . 0/ . TOC/5 . 0/ . PHST/0 . 0/ , I COND/2/ . I TYPE/8* 1/ . 

5  RTYPE/8*2 . 0/ , RA8AMP/8*0 . 0/ . RDSLIM/8* 1 . 0/, Z I NT/20 . 0/, 

6  RKP/ 1 . 1 80E+5/ . RKS/O . 9 1 893E+5/ . 2STEP/0 . 05/ . ZFI NAL/50 . 0/ , 

7  ZKEEP/1 -0/.NMAX/4000/ 


CALL  ASSIGN(IRRE, ' ON ‘ L . ’ ERRM  *  L , *  A* L. * FT59 * L) 
R  L  FB  ET- 1 ABCD  EFGH I J  K  LMNOPQRSTUVWXYZ ' 

1 2345678901234567890123456 
NUMRAL- ‘01 23456789' 

IF  (NT.GT.8)  THEN 

ITDIM-NINT(ALOG(FLOAT(NT))/ALOG(2.0)) 
TDIkHRLFBET  ( ITDIM: ITDIM) 

ELSE 

TDIM-NUMRAL  (NT+1:NT+1) 

END  IF 

IF  (NY.GT.8)  THEN 

IYDIM-NINT(ALOG(FLOAT(NY) )/AL0G(2 .0) ) 
YDIM-RLFBET  ( I YDIM: I YDIM) 

ELSE 

YD I M-NUMR A  L  ( NY+ 1 : NY+ 1 ) 

END  IF 

CALL  DATE(NDATE) 

WRITE  (FDATE. ’ (A8) ’ )  NDATE 
D1-FDATE  (2:2) 

D1A-FDATE  (1  : 2) 

IF  (D1A.EQ. ‘ 10‘)  D1-'A’ 

IF  (D1A.EQ. ‘ 11 ‘ )  DI-'B ’ 

IF  (D1A.EQ. ‘ 12‘)  D1-'C’ 

D2-FDATE  (4:5) 

D3-FDATE  (7:8) 

FRM- ‘ F ’ //TO I M//YD I M//D 1  //D2 
FR AM- ‘ F ‘ //TO  I M//YD I M//D 1 A//D2//D3 
IF  (NT.GT.8. AND. NY.GT.8)  THEN 
ISTP1-NUMRAL( 1 :1) 

ISTP2-NUMRAL(2:2) 

DTFL0-FRM//ISTP1 


47 


RAM2D1  (version  C) 


253 

254 

255 

256 

257 

258 

259 
266 
261 
262 

263 

264 

265 

266 

267 

268 
269 
276 

271 

272 

273 

274 

275 

276 

277 

278 

279 
286 
281 
282 

283 

284 

285 

286 

287 

288 
289 
296 
291 
2S2 

293 

294 

295 

296 

297 

298 

299 
366 

361 

362 

363 

364 

365 

366 

367 

368 

369 
316 

311 

312 

313 

314 

315 


DTFL1-FRM//ISTP2 

CALL  ASSIGN( IRRE.  'ON*  L, OTFL0 , ‘A'L. 'FT02'L) 

WRITE  (59.*)  ‘ASSIGN  FT02-  * , OTFL0 

CALL  ASSIGN( IRRE,  ’ ON  1 L , DTFL1 , ’A’L, ’ FT03  *  L) 

WRITE  (59  ,  * )  ‘ASSIGN  FT03-  ‘ , DTFL1 
PDN0-FRAM// 1 STP 1 // 1 STP 1 // 1 ST  P 1 
P0N1-FRAM//ISTP1//ISTP1//ISTP2 
IZNO-1 
ELSE 

DTFL1D-FRM 

CALL  ASSIGN( IRRE, ‘  CN* L . DTFL1  D . 'A’L, ’ FT64‘  L) 

WRITE  (59. •)  ‘ASSIGN  FT04-  ’.OTFLIO 
PDN1D-FRAM 
END  IF 

CALL  ASSIGN! IRRE. 'ON'L. ’NR AM’ L,  ’ A*  L, ’ FT01 ‘ L) 

READ  (1.NAML) 

CALL  S ECONO (STOT1 ) 

C 

C  -  SET  KAPPA-FACTORS 

RKAP1-S0RT!gAIN/(RKS*(RL’/'-RKS)«TTW0))/(8.6*PI) 
RKAP2-4.0»PI»RKS»(RKP-Rk  »SP£ED*RKAP1 
C 

C  -  SET  PUMP  AND  STOKES  AMPLITUDE 
R1-8.0«PI/SP£ED 
NAMP-NPUMP 
IF  (NY.LE.8)  NAMP-NY 
DO  5  11-1 ,NAMP 

5  RAMP ( 1 1 )-SQRT (R1*RINT(I1)) 

RAST-SQRT (R1 *RIST) 

C 

C  -  MISCELLANEOUS  INITIALIZATIONS.  INCLUDING  THE  WORKING  ARRAY  FOR  THE 
C  Y-OIRECTION  FFT 

ZFJN-ZFINAL-1 .0E-06 
ZKP-ZKEEP— 1 .0E-06 
N999— AMOD(ZF INAL , ZKEEP) 

IF  (N999.GE.998)  THEN 

WRITE  (59.0  ‘DATA  FILES  IN  EXCESS  OF  999* 

CALL  EXIT(1 ) 

END  IF 

IF  (NY.GT.8)  CALL  CF0UR2(EL,CW, NY, NT, 1 ,0,AW1 , AW2) 

ZVAL-0.0 
ZH-0 . 5*ZSTEP 
C 

C  —  DETERMINE  Y-SECOND-ORDER-DERIVAT IVE  KERNEL 
C 

IF  (NY.GT.8)  THEN 

YFAC-2 . 0»P I/(YM( 2 )-YM( 1 ) ) 

DO  8  I 2-1. NY/2 

8  CYVEC(l2.2)— 0.5*(0.0,1 .0) *ZH«( ( 12-1 )»YFAC)**2 
DO  9  I2-1+NY/2.NY 

9  CYVEC( 12 ,2)— 0 .5* (0.0,1 . 0)»ZH* ( (-NY+I2— 1 ) »YFAC)**2 


DO  10 

12-1, NY 

CYVECf 

’12,1)-CEXPI 

[CYVEC ( 

;i2-2) 

/RKP) 

CYVEC 

12 , 2;-CEXPI 

[  CYVEC ( 

:  i2 . 2) 

/RKS) 

16 

CONTINUE 

ELSE 

YFAC-1 

00  12  12-1 .NY 
CYVEC( 12, 1  )  — 1 .0 
CYVEC( 1 2 , 2)-1 . 0 
12  CONTINUE 

END  IF 
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r 


V 


K 


* 


316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 


378 


C 

C  - 


SET  TRAT  AND  THE  WORKING  ARRAYS  FOR  DETQ 
IF  (NT.GT.8)  TRAT-AMAX1(-TM(1)/TTWO.TM(2)/TTWO) 


15 

C 

C  - 


IF  METHOD  2.  SET  WO 1  AND  WQ2 

IF  (TRAT. LE. 10.0. AND. NT.GT.8)  THEN 
RDT«(TM(2)-TM(1))/NT 
DO  15  13-1 .NT 
TVAL-TM( 1 )+RDT* ( 13-1 ) 

WQ1 (13)— EXP'TVAL/TTWO) 

WQ2(I3)-1 .0/WQ1 (13) 

CONTINUE 


17 

18 


IF  METHOD  3.  SET  CWQ  AND  COMVEC 

ELSEIF  (TRAT. GT. 10. AND. NT.GT.8)  THEN 
CALL  CFOUR2(Q.CWQ,NT.NY. 1 .0.AW1 ,AW2) 

R1-1.0/TTWO 

R2-2 . 0»PI/ (TM(2)-TM( 1 ) ) 

R3-NT 

DO  17  I 3-1. NT/2 

COMVEC ( I 3)— -(0 .0, 1 . 0)»RKAP1/((R1-(0.0, 1 . 0)*( 13— 1 )*R2) *R3) 

DO  18  I3—NTHP  NT 

COMVEC ( 1 3)— (0 .0,1.0) •RKAP1/((R1-(0.0, 1 .0)»(— NT+I3-1 )*R2) »R3) 
END  IF 


—  RECORD  INITIAL  DATA 


IF  (NT.GT.8. AND . NY . GT . 8)  THEN 

WRITE  (2)  NPUMP , YM , TM . Z INT , RKP , RKS , YOFF , TOFF , YWIDTH , TWI DTH , 

1  YOST . TOST , YWST . TWST . R INT . R I ST . RAMASM . RALASM . NHYP . PH  L . PHST . 

2  TOC . I COND . I TYPE . RTYPE, RABAMP , RDSLIM, ZSTEP, ZFINAL, ZKEEP , NMAX . 

3  T TWO, GAIN 

WRITE  (3)  NPUMP. YM.TM.ZINT. RKP. RKS. YOFF, TOFF. YWIDTH. TWIDTH, 

1  YOST . TOST . YWST . TWST , R I NT . R I ST . RAMASM . RA  LASM . NHYP . PH  L , PHST , 

2  TOC. ICONO.ITYPE, RTYPE. RABAMP, RDSLIM, ZSTEP. ZFINAL. ZKEEP. NMAX. 

3  TTWO.GAIN 
ELSE 

WRITE  (4)  NPUMP. YM.TM.ZINT. RKP. RKS. YOFF, TOFF, YWIDTH, TWIDTH. 

1  YOST . TOST . YWST . TWST , R I NT , R 1ST . RAMASM . RALASM , NHYP . PH  L . PHST . 

2  TOC , I COND . I TYPE . RT YP  E . RABAMP .RDSLIM, ZSTEP, ZFINAL, ZKEEP, NMAX , 

3  TTWO.GAIN 
END  IF 
NWRT-1 


DETERMINE  CPU  TIME  FOR  INIT 
CALL  SECOND(SINITI) 

CALL  IN IT (I COND) 

CALL  SECOND(SINIT2) 
SINIT-SINIT2-SINIT1 


366 

C  -  RECORD  INITIAL 

COORDINATE 

367 

IF  (NY.GT.8) 

THEN 

368 

CALL  SHFT 

;el.ny,nt) 

369 

CALL  SHFT 

EES , NY, NT) 

370 

IF  (NT.GT 

8)  THEN 

371 

WRITE 

[2;  ZVAL.EL 

372 

WRITE 

2)  ZVAL.ES 

373 

WRITE 

!2)  ZVAL.Q 

374 

WRITE 

3)  ZVAL.EL 

375 

WRITE 

3)  ZVAL.ES 

376 

WRITE 

3)  ZVAL.Q 

377 

CLOSE 

2 

NOTE  AO-O-0.0 


CALL  SAVE( IRRE, ’ ON  * L . DTFL0 , ’ PDN ’ L , PDN0 , 
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t  'RESIDE*  L, ‘OFFLINE*  L) 

CALL  RELEASE ( IRRE, *  ON ’ L .DTFL0) 
ELSE 

WRITE  (4)  ZVAL.EL 
WRITE  (4)  ZVAL.ES 
WRITE  (4)  ZVAL.Q 
END  IF 

CALL  SHFT(EL.NY.NT) 

CALL  SHFT(ES.NY.NT) 

ELSE 

WRITE  (4)  ZVAL.EL 
WRITE  (4)  ZVAL.ES 
WRITE  (4)  ZVAL.Q 
END  IF 

NWRT-NWRT+3 

—  DETERMINE  INITIAL  FOURIER  DATA 

DO  20  12-1 .NY 
DO  20  I 3-1. NT 


CONTINUE 

IF  (NY.GT.8)  THEN 

CALL  CF0UR2(AEL,CW,NY,NT,— 1 , 1 ,AW1 ,AW2 
CALL  CFOUR2(AES,CW,NY,NTp— 1 , 1 ,AW1 , AW2 
R1-1 .0/(YFAC»NY) 

DO  30  12-1  .NY 
DO  30  13-1 .NT 
AEL(I3, I2)«R1*AEL(I3. 12) 

AES(I3, I2)-R1 »AES( 13 , 12) 

CONTINUE 


RECORD  INITIAL  FOURIER  DATA: 
CALL  SHFT(AEL.NY.NT) 
CALL  SHFT(AES.NY.NT) 

IF  (NT.GT.8)  THEN 
WRITE  (2)  ZVAL.AEL 


NOTE  AO-0.0 


ZVAL.AEL 
WRITE  (2)  ZVAL.AES 
WRITE  (2)  ZVAL.AQ 
WRITE  (3)  ZVAL.AEL 
WRITE  (3)  ZVAL.AES 
WRITE  (3)  ZVAL.AQ 
ELSE 

WRITE  (4)  ZVAL.AEL 
WRITE  (4)  ZVAL.AES 
WRITE  (4)  ZVAL.AQ 
END  IF 

CALL  SHFT(AEL.NY.NT) 

CALL  SH FT (AES, NY, NT) 
NWRT-NWRT+3 
END  IF 

—  ENTER  THE  LOOP  OVER  STEPS  IN  Z 

DO  500  10-1, NST 
CALL  SECOND(SSTEPI) 

EXIT  CONDITION:  STORAGE  IS  FILLED 
IF  (I0.GT.NMAX)  THEN 
WRITE(59,50) 

FORMAT ( *  NMAX  REACHED’) 


ZVAL.AEL 

ZVAL.AES 

ZVAL.AQ 
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485 
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495 
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497 
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500 

501 

502 

503 

504 


GO  TO  510 
ENOIF 

ZVAL-I0*ZSTEP 
C 

C  —  CALCULATE  THE  FIRST  EULER  STEP 
C 

CALL  SECOND(SFEI) 

CALL  OERIV(I) 

CALL  SECOND(SFE2) 

DO  100  12-1. NY 
DO  100  13-1, NT 
C1-AW( 13,12,1) 

C2-AW(I3, 12.2) 

AW(  13 .12.1 )— AEL( 13,12 
AW( 13 , 12 , 2)-AES( 13,12 
AEL( 13 , 12) —AW ( 13,12.1 
AES(I3, I2)-AW(I3, 12,2 
100  CONTINUE 
C 

C  -  SOLVE  CONSTRAINT  EQUATION  FOR  THE  MATERIAL  EXCITATION 
CALL  SECOND (SOI ) 

CALL  OETQ(TRAT) 

CALL  SECOND (SQ2) 

C 

C  —  CALCULATE  THE  SECOND  EULER  STEP 
C 

CALL  SECOND (SFE3) 

CALL  DERIV(2) 

CALL  SECOND(SFE4) 

DO  110  12-1 .NY 
DO  110  13-1 .NT 

AEL( 13. 12)— AW( 13,12,1 )»CYVEC( 12,1 )+ZSTEP*AW( 13, 12,3 
AES( 13, 12)— AW(I3 , 12 , 2) *CYVEC( 12 , 2)+ZSTEP*AW( 13, 12,4 
110  CONTINUE 
C 

C  -  SOLVE  CONSTRAINT  EQUATION  FOR  THE  MATERIAL  EXCITATION 
CALL  S ECONO (SQ3) 

CALL  DETQ(TRAT) 

CALL  SECOND (SQ4) 

C 

C  —  RECORD  DATA 
C 

IF  (ZVAL.GE.ZKP)  THEN 
ZKP-ZKP+ZKEEP 

IF  (NT . GT . 8 . AND . NY . GT . 8)  THEN 
IZNO-IZNO+1 

INUMRL-AINT(0 . 01 • IZNO) 

ISTP1-NUMRAL  ( INUMRL+1 : INUMRL+1 ) 

IRST— IZNO— 1 00* INUMRL 
INUMRL-AINT(0. 1 *IRST) 

ISTP2-NUMRAL  ( INUMRL+1 : INUMRL+1 ) 

INUMRL- I RST-19* INUMRL 
ISTP3-NUMRAL  ( INUMRL+1 : INUMRL+1 ) 

DTFL2D-FRM//' 2 ’ 

CALL  ASSIGN(IRRE. ' ON’ L.DTFL2D, ’A’L, *FT04’L) 
WRITE  (59,*)  ’ASSIGN  FT04-  ’ . DTFL2D 
PDN2D-FR AM// ISTP1//I STP2// ISTP3 
END  IF 

IF  (NY.GT.8)  THEN 
DO  115  12-1 .NY 
DO  115  13-1, NT 
EL( 13, I2)-YFAC»EL(I3, 12) 

ES(I3,I2)-YFAC*ES(I3. 12) 


!*CYVEC( 12 , 1 ) 
•CYVEC(I2,2) 
+ZH*C1 
+ZH*C2 
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115 


AQ( 13 , I 2)«Q( 13,12) 
CONTINUE 

CALL  SHFT(EL.NY.NT) 
CALL  SHFTlES.NY.NT) 
CALL  SHFT(Q.NY.NT) 
WRITE  (4)  ZVAL.EL 


WRITE  (4 
WRITE  (4 
CALL  SHF 
CALL  SHFT 


ZVAL.ES 
ZVAL.Q 
EL, NY. NT) 

ES.NY.NT) 

CALL  SHFT(Q,NY,NT) 

CALL  CFOUR2(AQ,CW,NY,NT.-1 .1 ,AW1 ,AW2) 

CALL  SHFT(AEL.NY.NT) 

CALL  SHFTfAES.NY.NT) 

CALL  SHFT (AO, NY, NT) 

WRITE  (4)  ZVAL.AEL 
WRITE  (4)  ZVAL.AES 
WRITE  (4)  ZVAL.AO 
NWRT-NWRT+6 
CALL  SHFT(AEL.NY.NT) 

CALL  SHFT(AES.NY.NT) 

IF  (NT.GT.8)  THEN 
CLOSE  (4) 

CALL  SAVE( IRRE , *DN’ L.0TFL2D, ’ PDN ’ L . PDN2D . 

‘RESIDE*  L, ‘OFFLINE*  L) 
CALL  RELEASE  ( IRRE, ‘ON* L.DTFL2D) 

END  IF 


C 

C  — 
C 


ELSE 
WRITE 
WRITE 
WRITE 

NWRT-NWRt+3 
END  IF 
ENOIF 

CALL  SECONO(SSTEP2) 


ZVAL.EL 

ZVAL.ES 

ZVAL.Q 


•s 


SET  TIMING  DATA 


C 

C  - 


SSTEP( I0)"SSTEP2— SSTEP1 
SFE( I0)“SFE4— SFE3+SFE2— SFE1 
SQ( I 0 )— SQ4— SQ3+SQ2-SQ 1 


Q 


EXIT  CONDITION:  ZFINAL  IS  REACHED 
IF  (ZVAL.GE. ZFINAL)  GO  TO  510 
CONTINUE 


CONTINUE 


500 

C 

C  —  EXIT  ROUTINES 
C 

510 
C 

C  -  SET  STOT;  RECORD  CPU  TIMING  DATA 
CALL  SECOND(STOT2) 

STOT-STOT2-STOT1 

NWRT-NWRT+1 

IF  (NT.GT.8. AND . NY , GT . 8 )  THEN 

WRITE  (3)  NWRT , ZVAL , STOT , S I N I T , SSTEP , SFE , SQ 
CLOSE  (3) 

CALL  SAVE ( IRRE, ’DN’L.DTFLI , ‘PDN'L.PDNI , ’RESIDE*  L, ’OFFLINE’ L) 
ELSE 

WRITE  (4)  NWRT, ZVAL. STOT, SINIT. SSTEP, SFE. SQ 
CLOSE  (4) 

CALL  SAVE( IRRE, *DN* L .DTFL1D, * PDN’ L.PDN1D. ’ RESIDE’ L. ’OFFLINE'  L) 
END  IF 


01 
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CALL  EX I T ( 1 ) 
END 


SUBROUTINE  DETQ(TRAT) 

THIS  SUBROUTINE  FIRST  CALCULATES  THE  PUMP  AND  AND  STOKES  FIELDS  IN 
THE  COORDINATE  SPACE  FROM  THEIR  FOURIER  SPACE  REPRESENTATIONS. 

IT  THEN  DETERMINES  THE  MATERIAL  EXCITATION  (Q)  IN  THREE  DIFFERENT 
PARAMETER  REGIMES:  1)  IF  NT  IS  LESS  THAN  OR  EQUAL  TO  8.  A  SET  OF 
1— D  STATIONARY  CASES  IS  RUN.  2)  IF  MAX(ABS(T/TTWO) )  <  16.8  AND 
NT  >  8,  A  RUNNING  SUM  IS  PERFORMED.  3)  IF  MAX(T/TTWO)  >  16.6 
AND  NT  >  8,  AN  FFT  APPROACH  IS  USED. 


—VARIABLES— 


TRAT  -  MAX(T/TTWQ) 


PARAMETER ( NT-258 . NY-258 , NTHP-1 +NT/2 . NS-5*NY/2 ) 

IMPLICIT  COMPLEX(A-E.Q) 

DIMENSION  EL(NT ,NY) , ES(NT ,NY) ,Q(NT,NY) ,AEL(NT ,NY) .AES (NT ,NY) , 

1  AQ(NT.NY) . AM (NT , NY, 4) , CW(NS) , AW1 (NY) , AW2(NY) , COMVEC(NT) ,CWQ(NT) 

2  WQ1 (NT) ,WQ2(NT) 

EQUIVALENCE  (CWQ.WQ1 ) , (CWQ(NTHP) , WQ2) 

COMMON/ VARTWO/EL . ES . Q . AW1 . AW2 . CM . RKP . RKS 

COMMON/VWORK/AEL . AES . AQ . AW , CWQ . COMVEC . RKAP1 . RKAP2 . TTWO . YFAC . RDT 

DO  16  12-1 .NY 
DO  18  13-1  .NT 
EL( 13, 12)— AEL( 13,12} 

ES(I3, 12)— AES(I3, 12) 

CONTINUE 

IF  (NY.GT.8)  THEN 

CALL  CFOUR2(EL ,CW,NY,NT .1,1 , AW1 ,  AW2) 

CALL  CFOUR2(ES.CW,NY,NT,1 .1 .AW1.AW2) 

END  IF 

IF  (NT.LE.8)  THEN 
DO  28  1 2-1, NY 

DO  26  13-1, NT  ,  ,  _ 

Q(I3. 12)— (6.6,1 .0) »RKAP1 *TTWO*CONJG(ES( 13 , I2))*EL(I3, 12) 
ELSEIF  (TRAT. LE. 16.8)  THEN 
DO  36  1 2-1, NY 

DO  36  13-2, NT  , 

Q(I3,I2)-Q(I3-1,I2)-(0.6.1 .6)*RKAP1*RDT*CONJG(ES(I3.I2)) 

1  »EL( 13, I2)*WQ1 (13) 

DO  35  1 2-1, NY 
DO  35  13-1 , NT 
Q(I3,I2)-WQ2( 13) *0(13,12) 

ELSE 

DO  40  12-1 ,NY 
DO  40  13-1 , NT 

Q(I3, I2)-C0NJG(ES( 13, I2))*EL(I3, 12) 

CALL  INVERT(Q,AQ,NT.NY) 

CALL  CF0UR2(AQ,CWQ,NT,NY,1 ,1 .AW1 ,AW2) 

DO  45  13-1 ,NT 
DO  45  12-1 , NY 

AQ( 1 2 , 1 3)-C0MVEC( 13) *AQ( 1 2 , 13) 

CALL  CF0UR2 (AQ, CWO , NT , NY,— 1 ,1 ,AW1 ,AW2) 

CALL  I NVERT ( AQ , Q , NY , NT) 

END  IF 
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631  IF  (NY.GT.8)  THEM 

632  R1-YFAC**2 

633  DO  50  1 2-1. NY 

634  DO  50  1 3-1, NT 

635  50  0(13, I2)-R1 *Q(13, 12) 

636  END IF 

637  RETURN 

638  END 

639  C 

640  C 

641  C 

642  C 

643  C 

644  SUBROUTINE  DERIV(IFILL) 

645  C 

646  C  THIS  SUBROUTINE  CALCULATES  THE  Z-DERIVATIVES  OF  THE  PUMP  AND  STOKES 

647  C  FIELDS.  THIS  CALCULATION  IS  DONE  IN  KY-SPACE.  THE  LINEAR  PORTION  OF 

648  C  THE  SECOND-ORDER-DERIVATIVE  OPERATOR  HAS  A  FINITE  STEP  CORRECTION 

649  C  (CONTAINED  IN  CYVEC)  SO  THAT  THE  LINEAR  CONTRIBUTION  IS  EXACT. 

650  C 

651  C  —VARIABLES— 

652  C 

653  C  IFILL  -  DERIVATIVE  NUMBER 

654  C  -  1:  INITIAL  STEP 

655  C  -  2:  MID-POINT  STEP 

656  C 

657  PARAMET  ER ( NT-256 , NY— 256 , NS— 5 • NY/2 ) 

658  IMPLICIT  COMPLEX(A-E.Q) 

659  DIMENSION  EL(NT.NY) , ES(NT.NY) ,Q(NT,NY) . AEL(NT .NY) .AES(NT.NY) . 

660  1  AQ(NT.NY) ,AW(NT.NY.4) ,CW(NS) ,AW1 (NY) ,AW2(NY) .COMVEC(NT) ,CWQ(NT) 

661  C0MM0N/VARTW0/EL.ES.Q.AW1 . AW2 , CW , RKP , RKS 

662  COMMON/VWORK/AEL.AES.AQ.AW.CWQ.COMVEC.RKAP1 .RKAP2.TTW0.YFAC. ROT 

663  C 

664  Cl— (0.0.1 .0)*(RKP/RKS)»RKAP2 

665  IF  (NY.GT.8)  C1-C1/NY 

666  DO  10  12-1. NY 

667  DO  10  13-1, NT 

668  10  AQ(I3. 12)— Cl *0(13, 12)* ES (13, 12) 

669  IF  (NY.GT.8)  CALL  CF0UR2(AQ ,CW , NY. NT .-1 . 1 . AW1 . AW2) 

670  IV— 2»IFILL— 1 

671  DO  20  12-1. NY 

672  DO  20  13-1 , NT 

673  20  AW(I3, 12. IV)-AQ(I3, 12) 

674  Cl— (0.0.1 ,0)*RKAP2 

675  IF  (NY.GT.8)  C1-C1/NY 

676  DO  30  12-1. NY 

677  DO  30  1 3-1. NT 

678  30  AQ( 13, I2)-C1 *C0NJG(0( 13 . I2))*EL(I3,I2) 

679  IF  (NY.GT.8)  CALL  CF0UR2(AQ.CW.NY,NT.-1 , 1 ,AW1 ,AW2) 

680  IV-2*IFILL 

681  DO  40  12-1, NY 

682  DO  40  I 3-1. NT 

683  40  AW( 13, 12 , IV)-AQ( 13,12) 

684  RETURN 

685  END 

686  C 

687  C 

688  C 

689  C 

690  SUBROUTINE  SHFT(FOATA.NF.NV) 

691  C 

692  C  THIS  SUBROUTINE  SHIFTS  THE  FOURIER  DATA  SO  THAT  ZERO  FREQUENCY  IS  AT 

693  C  THE  1+NF/2  LOCATION  (THE  CENTER  OF  THE  ARRAY) 


RAM2D1  (version  C) 


694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 


DIMENSION  F0ATA(2*NV.NF) 
NFH-NF/2 
DO  100  I2-1.NFH 
DO  100  13-1. 2»NV 
TEMP-FDATA(I3, 12) 

FDATA (13,12 ) -FDAT A ( 1 3 . 1 2+NFH ) 
FDATA( 13, I2+NFH)— TEMP 
100  CONTINUE 
RETURN 
END 


SUBROUTINE  INVERT ( EDATA , EWORK , NF , NV) 

C 

C  THIS  SUBROUTINE  INVERTS  THE  INNER  AND  OUTER  ARRAY  VARIABLES 
C 

COMPLEX  EDATA (NF, NV) , EWORK ( NV , NF) 

IF  (NF.LE.1.0R.NV.LE.1)  RETURN 

DO  50  13-1 ,NF 

DO  50  12-1, NV 

EWORK ( 12 , I3)-EDATA( 13,12) 

50  CONTINUE 
RETURN 
END 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


C 


SUBROUTINE  INIT(ICOND) 

THIS  SUBROUTINE  DETERMINES  THE  INITIAL  PROFILES  FOR  THE  STOKES  AND 
PUMP  WAVES.  MOST  VARIABLES  ARE  DECLARED  IN  THE  MAIN  ROUTINE. 


—VARIABLES— 


ICOND 


1:  DOUBLE-SECH  PROFILE 

2:  S ECH •• 2-HYP ERGAUSS I AN  PROFILE  WITH  STOKES  ASYMMETRY 
IN  TIME  AND  IMPOSED  CHIRP 

3:  1-0  TRANSIENT  PROFILES:  TYPE  DETERMINED  BY  I TYPE 

ITYPE  -  1:  SECH»*N  PROFILES 

2:  RECTANGULAR  PROFILES 
3:  LORENTZIAN*«N  PROFILES 

4:  EXP( |AT| *»N)  PROFILES 
4:  STATIONARY  HYPERGAUSS IAN  PROFILES  WITH  PUMP 
ABERRATION  INCLUDED 


PARAMETER (NT-256 , NY-256 . NP-1 0 , NYH— NY/2 . NYHP-NYH+1 , NS-5*NY/2) 
IMPLICIT  COMP LEX (A-E.Q) 

DIMENSION  EL(NT.NY) ,ES(NT,NY) ,Q(NT,NY) .CW(NS) ,AW1(NY) ,AW2(NY) . 

1  ystoru - - - - -  - -  - 

2  YWI0TH( 

3  RTYPEI8)  ...  ..... 

COMMON /V I N I T/NPUMP , YM . TM , Z I NT , YO?F . TOFf 

1  YWST , TWST . RAMP . RAST , RAMASM , RALASM , NHYP . PHL . PHST , TOC , I TYPE . RTYPE . 


ION  EL(NT.NY) ,ES(NT,NY)  ,Q(NT,NYJ  ,CW(NSJ  .AWHNY;  .AWZIN 
I  (NY)  ,  YST0R2(NY)  ,  Y^(NY)  ,  TSTORE(NT)  , TSC(NT)  , PHL(NP) , 
1(NP) . TWIOTH(NP) . TOFF (NK) . TOFF(NP) , RAMP(NP) , ITYPE(8) . 
’  8  )  .  RAB AMP  (  8  )  ,  RDS  L I M  (  8 ) ,  YM  (  2  )  ,  TM  (  2  ) 


(2) 

F.YWIDTH.TWIDTH, YOST. TOST. 


2  RABAMP , RDSLIM 

COMMON/VARTWO/EL , ES.0.AW1 , AW2 ,CW , RKP , RKS 

DATA  PI/3. 14159265358979/, S02/1 .41421356237309/, 

2  SQ4/1 . 1892071 1500272/, RAL2/0. 693147180559945/. 

3  SOI  0/3 . 1 62277660 1 6838/ , SOI  2/3 . 46410161513775/ 
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IF  (ICONO. LT. 1 .OR. IC0N0.GT.4)  THEN 
WRITE  (59,5) 

FORMAT ( ’  ONLY  TYPES  1,2.3  AND  4  ARE  INITIALIZED*) 

CALL  EXIT(l) 

END  IF 

INITIALIZE  VARIABLE  ARRAYS 
DO  8  12-1, NY 
DO  8  13-1, NT 
EL(I3,I2)-(8. 0,8.0) 

ES(I3,I2)-(0. 0,0.0) 

Q(I3.I2)-(0. 0.0.0) 

CONTINUE 

IF  ( ICONO. NE. 3. AND. NY. LE. 8)  THEN 
WRITE  (59,10) 

FORMAT ( '  ICOND  MUST  EQUAL  3  IN  1-0  TRANSIENT  RUNS  (NY 
1  *  LESS):*/,*  ICOND  IS  RESET  TO  3*) 

ICONO— 3 
END  IF 

IF  (ICOND. NE. 4. AND. NT. LE. 8)  THEN 
WRITE  (59,12) 

FORMAT ( *  ICOND  MUST  EQUAL  4  IN  STATIONARY  RUNS  (NT  - 
1  *  LESS):*/,*  ICOND  IS  RESET  TO  4*) 

ICOND— 4 
END  IF 

IF  (ICOND. EQ. 3)  GO  TO  210 
INITIALIZE  Y-QUANT I T I ES 

IF  (ABS(YM(2)+YM(1)).CT. 1 .0E-08)  WRITE  (59,14) 

FORMAT(*  YM(2)  MUST  equal  -ym(i)*) 

YM(2)— YM(1) 

RDY-(YM(2)-YM(1))/NY 
DO  16  12-1 .NYH 
YSTOR2(l2)-RDY*(I2-1) 

DO  18  I 2-NYHP , NY 

YS  TOR2 ( 1 2 ) -RO Y • ( 1 2- 1 -NY ) 

IF  (ICOND. EQ. 4)  GO  TO  310 

RDT— (TM(2)— TM( 1 ))/NT 
IF  (ICONO. EQ. 2)  GO  TO  110 
RFAC— 2 . 0*ALOG( 1 .0+SQ2) 


8  OR’  , 


DOUBLE-SECH  PROFILE 


DETERMINE  PUMP  FACTORS 
DO  50  11-1.NPUMP 

ALPHA— (0.0,1 .0)*YOFF(I1)*RKP/ZINT 

yfac-rfac/ywioth<  1 1 ) 

T  F  AC-RFAC/TW I DTH ( 1 1 ) 

DO  20  1 2-1, NY 
Y1— YSTOR2( 12) 

YV-EXP(YFAC* ( Y1— YOFF( II))) 

YSTOR1 ( I2)-(1 .0/(YV+1 .0/YV)) 
CONTINUE 

T1 -TM( 1 )-TOFF( I 1 ) 

DO  30  13-1 ,NT 

tv-exp(tfac*(ti+rot*(i3-i))) 

TSTORE(I3)-4.0«RAMP(I1)/(TV+1 .0/TV) 

CONTINUE 

DO  50  1 2-1, NY 

C 1 -C EXP ( ALPHA* YSTOR2( 12) ) 


RAM2D1  (version  C) 


820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 


00  50  13-1 .NT 

EL(I3,I2)-EL(I3,I 2)+YST0R1 (I2)*TSTORE(I3)*C1 
50  CONTINUE 
C 

C  -  DETERMINE  STOKES  FACTORS 

ALPHA— (0.0. 1 .  0) «YOST»RKS/ZINT 

Y  F  AC-R  FAC/YWS  T 
DO  70  12-1 .NY 
Y1-YST0R2( 12) 

YV— EXPfYFAC* (Y1-Y0ST) ) 

YST0R1(I2)-(1 .0/( YV+1 . 0/YV) ) 

70  CONTINUE 

T 1-TM( 1 )-TOST 
DO  80  13-1. NT 

TV-EXP(TFAC» (T1+RDT* ( 13-1 )) ) 

TSTORE( I3)-4.0*RAST/(TV+1 .0/TV) 

80  CONTINUE 

DO  100  12-1. NY 
C 1-CEXP(ALPHA*YST0R2( 12) ) 

DO  100  13-1. NT 

ES(I3. I2)-YST0R1 ( I2)«TST0RE( I3)*C1 
100  CONTINUE 
RETURN 
C 
C 

C  -  SECH** 2-HYPERGAUSS I AN  PROFILE  WITH  ASYMMETRIC  STOKES  WAVE 

C 

110  CONTINUE 

R  FAC Y-2 . 0 • • ( NHYP- 1 )*RAL2 
R  FACT-2 . 0«ALOG (SQ4+SQRT  (  SQ2— 1  .0)) 

C 

C  -  DETERMINE  PUMP  FACTORS 
DO  150  11—1, NPUMP 

ALPHA— (0.0.1 .0).YOFF(I1).RKP/ZINT 
YFAC-RFACY/YWIDTH( 1 1 )«*NHYP 
TFAC— RFACT/TWIDTH( I 1 ) 

DO  120  12-1. NY 

YST0R1 ( I2)-EXP(-YFAC* (YST0R2( I2)-Y0FF( I 1 ) ) *«NHYP) 

120  CONTINUE 

T 1— TM( 1 )— TOFF (II) 

DO  130  13-1. NT 

TV-EXP (TFAC* (T1+R0T*( 13— 1 ) ) ) 

TSTORE(I3)-4.0/(TV+1 .0/TV)*»2 
130  CONTINUE 

DO  150  12-1. NY 
DO  150  13-1 , NT 
R1-YST0R1 ( I2)*TST0RE( 13) 

EL( 13 , 12)-EL(I3. I2)+RAMP( 1 1 ) »R1 *CEXP( (0.0, 1.0) *PHL( 1 1 ) -R 1 • -2 
1  +  ALPHA«YST0R2(I2)) 

150  CONTINUE 
C 

C  -  DETERMINE  STOKES  CHIRP  FACTORS 
C  AT  PRESENT,  TWC-TWIDTH(I) ,  YWC-YWIDTH( 1 ) 

TWC-TWIDTH( 1 ) 

YWC-YWIDTHI1 ) 

Y  FAC-R  F AC Y/YWC • • NH YP 
T  FAC-RFACT/TWC 

DO  160  12-1. NY 

Y  SC ( 1 2 ) - EXP ( - Y  F AC • YS  T0R2 ( 1 2 ) • • NHYP ) 

160  CONTINUE 

T 1-TM( 1 J-TOST-TOC 

DO  165  13-1 .NT 

TV-EXP(TFAC» ( T1+RDT  * ( 13—1 ) ) ) 
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165 


TSC(I3)-4.0/(TV+1 . 8/TV) *.2 
CONTINUE 


C  -  DETERMINE  STOKES  FACTORS 

ALPHA— (0.8, 1  .  0  )  »  YOST  .RKS/Z 1  NT 
YFAC-RFACY/YWST..NHYP 
TFAC-RFACT/TWST 
DO  170  12-1. NY 


YSTOR 1 ( 1 2 )-EXP (-YFAC* ( YSTOR2 ( 1 2 )-YOST) *  *NHYP ) 
178  CONTINUE 

DO  188  13-1. NT 
T1-TM( 1 )+ROT » ( 13— 1 )-TOS  T 
C 

C  -  SET  STOKES  ASYMMETRY 

TV-EXP (-TFAC.RALASM.T1 ) 

T1 -T1.fi .0+RAMASM»TV/(TV+1 .8/TV)) 

TV-EXP (TFAC.T1 ) 

TSTOREf I3)-4.0/(TV+1 .0/TV).*2 
188  CONTINUE 

DO  198  12-1, NY 
DO  190  13-1 .NT 
R1-YSTOR1 ( 12) »TSTORE( 13) 

R2— YSC( 12) *TSC( 13) 

ES( 13 , I2)»RAST*R1 *CEXP( (0 . 8,1.8) *PHST.R2**2 
1  +ALPHA.YSTOR2( 12) ) 

198  CONTINUE 
RETURN 


C 

C 

C 

C 


ONE-DIMENSIONAL  TRANSIENT  CASES  (NO  Y-VARIATION) 


218  CONTINUE 

IF  (NY.GT.8)  THEN 
WRITE  (59.212) 

212  FORMAT( '  IN  TRANSIENT  STUDIES,  ONLY  UP  TO  8  CASES  CAN  BE  KEPT' 
CALL  EXIT( 1 ) 

END  IF 

ROT— (TM(2)—TM( 1 ) )/NT 
C 

C  —  LOOP  OVER  CASES 
C 


) 


DO  298  1 1-1. NY 
C 

C  —  SECH  PROFILE 
C 

IF  ( ITYPEfI 1 ) . EQ. 1 )  THEN 
R2-1 . 0/RTYPE(I1 ) 
R1-0.5.R2 


RFACT— 2 .0»ALOG(EXP(R1 *RAL2)+SQRT(EXP(R2.RAL2)— 1 .0)) 


C  -  DETERMINE  PUMP  PROFILE 

TFAC-RFACT/TWIDTH( 1 1 ) 
T1-TM(1 )— TOFFfI 1 ) 

DO  215  13-1 .NT 


215 


T  F  AC • ( T 1 +RDT • ( 1 3— 1 ) ) ) 

"TV+1 . 8/TV) 

.  TYPE( 1 1 ) .ALOG(TV)) 

EL ( 13, I 1 )-RAMP( I 1 ) *TV»CEXP( (0.0,1 
CONTINUE 


TV-EXP (TF 
TV-2. 0/(7 
TV-EXP (R1 


8)*PHL(I1).TV.*2) 


C 

C  -  DETERMINE  STOKES  CHIRP  FACTOR 
TWC-TWIDTHfl) 
TFAC-RFACT/TWC 
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947 
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949 
958 
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955 
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965 
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967 
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969 

978 

971 

972 

973 

974 

975 

976 

977 
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979 
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991 
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T1— TM( 1 )— TOST-TOC 
DO  228  13-1 , NT 


228 
C 

C  -  DETERMINE  STOKES  PROFILE 
TFAC-RFACT/TWST 
DO  225  13-1, NT 
T 1 -TM ( 1 ) +RDT • ( I 3- 1 )-TOST 
TV-EXP(-TFAC»RALASM*T1 ) 

T1-T1 * ( 1 . 8+RAMASM»TV/(TV+1 .8/TV)) 

TV-EXP (TFAC*T1) 

TV-2.8/(TV+1 .8/TV) 

TV-EXP (RTYPE( I 1 j*ALOG(TV) ) 

ES( 13, II )-RAST*TV«CEXP( (8.8,1 .0)»PHST*TSC( I 3)* *2) 
225  CONTINUE 
C 

C  —  RECTANGULAR  PROFILE  (ASSYMETRY  AND  CHIRP  ARE  IGNORED) 

c 


TV-EXPfTFAC* (T1+RDT • ( I 3 — 1 ) ) ) 
TV-2.0/(TV+1 .8/TV) 

TSC( I3)-EXP(RTYPE( I 1 )»ALOG(TV) ) 
CONTINUE 


ELSEIF  ( ITYPE(I 1 ) . EQ. 2)  THEN 

c 

C  -  DETERMINE  PUMP  PROFILE 

IMIN— N I NT (( TOFF ( I 1 )—TM( 1 )-8.5»TWIDTH( 1 1 ) )/RDT)  +  1 
IF  (IMIN.LT.1)  IMIN— 1 

IMAX-NINT((T0FF(I1)-TM(1)+8.5*TWIDTH(I1))/RDT)  +  1 
IF  ( IMAX.GT.NT)  IMAX-NT 
DO  238  13— IMIN, IMAX 
238  EL( 13 , I 1 )-RAMP( II) 

C 

C  -  DETERMINE  STOKES  PROFILE 

IMIN-NINT(7tOST-TM(1 )-8 •5*T'8ST)/ROT)  +  1 
IF  (IMIN.LT.1)  IMIN-1 
IMAX-NINT((T0ST-TM(1)+8.5*TWST)/RDT)  +  1 
IF  (IMAX.GT.NT)  IMAX-NT 
DO  235  13— IMIN, IMAX 
235  ES( 13 , I 1 )— RAST 

C 

C  —  LORENTZIAN  PROFILE 
C 


ELSEIF  ( ITYPE( 1 1 ) . EQ.3)  THEN 

RFACT-2 . 8«SQRT( EXP ( <  8 . 5/RTYPE( 1 1 ))»RAL2)-1 .8) 

-  DETERMINE  PUMP  PROFILE 

TFAC-RFACT/TWIDTH( 1 1 ) 

T1-TM( 1 )— TOFF( I 1 ) 

DO  248  13-1 ,NT 
TV-T1+RDT»(I3— 1) 

TV-1 .8/^1 . 8+(TFAC»TV)**2) 


248 


TV-EXP(RTYPE( 1 1 )«ALOG(TV) ) 

EL( 13 , II )-RAMP( 1 1 )*TV«CEXP((8.0, 1 .8)*PHL( I1)*TV»*2) 
CONTINUE 


C  -  DETERMINE  STOKES  CHIRP  FACTOR 
TWC-TWIDTH(I) 

TFAC-RFACT/TWC 
T1-TM( 1 )— TOST-TOC 
DO  245  I 3-1, NT 
TV-T1+RDT •( 13-1 ) 

TV-1 .8/(1 . 8+(TFAC»TV)*»2) 

TSC( I3)-EXP(RTYPE( 1 1 )*ALOG(TV) ) 
245  CONTINUE 
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lr 


8 

r 


C  -  DETERMINE  STOKES  PROFILE 
TFAC-RFACT/TWST 
DO  250  1 3-1, NT 
T1— TM( 1 )+RDT • ( 13— 1 )-TOST 
TV— EXP(— TFAC*RALASM*T1 ) 

T 1 — T 1  —  t 1 ,0+RAMASM*TV/(TV+1 .0/TV)) 

TV-1  .0/(1 .0+(TFAC*T1>»2) 

TV-EXP (RTYPE( I 1 ) •ALOO(TV) ) 

ES (13, 1  1 )-RAST  »TV*CEXP( (0.0,1 .0)«PHST*TSC( I3)**2) 
250  CONTINUE 


C  —  EXPONENTIAL  PROFILE  (EXPONENT  IS  TAKEN  TO  THE  POWER  RTYPE(II)) 

C 

ELSEIF  ( ITYP£( I 1 ) . EQ. 4)  THEN 

RFACT-2 . 0«  EXP ( ( 1 . 0/RTYPE( II)) *AL0G(0 . 5*RAL2) ) 

C 

C  -  DETERMINE  PUMP  PROFILE 

TFAC-RFACT/TWIOTH( 1 1 ) 

T1— TM( 1 )-TOFF( II) 

DO  255  13-1 , NT 

TV— ABS(TFAC* (T1+RDT*( 13-1 )))+1 .0E-10 
TV-EXP(-EXP(RTYPE(I1)*ALOG(TV))) 

EL( 13 , 1 1 )-RAMP( 1 1 ) *TV*EXP( (0.0,1 .0)*PHL( 1 1 )»TV**2) 

255  CONTINUE 

C 

C  -  DETERMINE  STOKES  CHIRP  FACTOR 
TWC-TWIDTH(l) 

TFAC-RFACT/TWC 
T1— TM(1 )— TOST-TOC 
DO  2S0  I 3-1. NT 

TV-ABS(TFAC.(T1+RDT.(I3-1)))+1 .0E-10 
TSC( 13)— EXP(-EXP(RTYPE( I 1 )*ALOG(TV) )) 

260  CONTINUE 

C 

C  -  DETERMINE  STOKES  PROFILE 
TFAC-RFACT/TWST 
DO  265  13-1. NT 

T1-TM( 1 )+RDT • ( 13-1 )-TOST+1 .0E-10 
TV— EXP(— TFAC»RA LASM«T1 ) 

T 1 -T 1 • ( 1 . 0+RAMASM*  TV/ ( TV+ 1 .0/TV)) 

TV-EXPl— EXP(RTYPE( 1 1 )*ALOG(ABS(TFAC*T1 ) ) ) ) 

ES( 13, 1 1 )-RAST»TV*CEXP( (0 .0.1 .0)*PHST.TSC(I3)»*2) 

265  CONTINUE 

C 

C  —  ERROR 
C 

ELSE  ,  v 

WRITE  (59,270)  II , ITYPE(II) 

270  FORMAT ( ’  ONLY  TRANSIENT  TYPES  1-4  ARE  INITIALIZED’/, 

1  *  ON  PUMP  NO.’. 14,’  TYPE  NO.  -*,I4) 

ENOIF 

290  CONTINUE 
RETURN 
C 
C 

C  -  STATIONARY  CASE  (NO  T— VARIATION) 

C  (AT  PRESENT  THE  DISPERSION  LIMIT  IS  SET  WITH  RESPECT  TO  YWIDTH(I)) 

C 

310  CONTINUE 

RFACY-2 . 0* • (NHYP-1 ) *RAL2 

RFACK-(0 . 1 25*YWIDTH( 1 ) *«2/( EXP( (2 . 0/NHYP) «ALOG(RAL2) ) ) ) 

1  » (2 . 0*P 1/ (NY«RDY) ) *»2 
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C  -  DETERMINE  PUMP  FACTORS 
DO  320  11-1 , NPUMP 

ALPHA— (0.0,1 .0)*YOFF(I1)»RKP/ZINT 

Y  F  AC-R  F  AC  Y/YY1 I D  TH ( 1 1 ) ••NHYP 
00  315  12-1. NY 

YST0R1 ( I2)-EXP(-YFAC* (YST0R2( I2)-Y0FF( 1 1 ) ).*NHYP) 

315  CONTINUE 

DO  320  13-1 ,NT 
DO  320  12-1. NY 

EL( 13 , I2)-EL( 13 , 12)+RAMP( 1 1 )»YST0R1 ( 12) *CEXP( ALPHA* YST0R2( 12) ) 
320  CONTINUE 
C 

C  —  DETERMINE  RANDOMIZING  FACTORS 
C 

OO  350  1 3-1. NT 

IF  (ROSLIM( 13) . LT. 1 . 1 )  GO  TO  350 
RKFAC-RFACK/(2 .0»RDSLIM( 13) **2-1 .0) 

C 

C  -  PHASE  FACTORS 

DO  322  I 2-1, NY 

322  AW1 ( I2)-CEXP( (0.0,1 . 0) *2 . 0»PI»RANF ( 1 ) ) 

CALL  CFFT2(0.1 .NY.AW1 .CW.AW2) 

DO  326  12-1, NYH 

AW2(I2)-EXP(— RKFAC«(I2-1 )»*2)»AW2( 12) 

AW2(NYH+I2)— EXP(— RKFAC«<NYH— I2+1)»»2)*AW2(NYH+I2) 

326  CONTINUE 

CALL  CFFT2(0.-1 .NY.AW2.CW, AW1 ) 

DO  330  12-1 ,NY 
R1 -CABS(AN1 ( 12)  ) 

IF  (R 1 .GT. 1 .0E-10)  AW1(I2)-A*1(I2)/R1 
330  EL(I3. I2)-EL(I3, I2)*AW1 (12) 

C  -  AMPLITUDE  FACTORS 

IF  (RABAMP( 13) . LT . 0 . 01 )  GO  TO  350 
DO  332  1 2-1.  NY 
332  A»M  (12)— 5.0 

DO  334  J2-1 ,10 
DO  334  12-1 .NY 

334  AW1 ( I2)-AW1 ( I2)+RANF( 1 ) 

R1-0.0 

DO  335  12-1 ,NY 

335  R1-R1+AN1 (I2)*AW1 (12) 

CALL  CFFT2(0.1 .NY.AW1 ,CW,AW2) 

DO  336  I 2-1, NYH 

AW2  ( 1 2 )-EXP (-RKFAC • ( 1 2-1 ) • *2 ) • A#2 ( 1 2 ) 

AW2 ( NYH+ 1 2 )-EXP (-RKFAC • ( NYH- 1 2+ 1 ) • • 2 ) • AW2 ( NYH+ 1 2 ) 

336  CONTINUE 

CALL  CFFT2(0.-1 .NY.AW2.CW, A*1 ) 

R2-0.0 

DO  337  I 2-1. NY 
AW1  (  I2)-AW1  (  I2)/NY 

337  R2-R2+AN1 ( 12) *AN1 (12) 

R 1 -SORT (R1/R2) * RABAMP ( I 3 ) • SQ 1 2/SQ 1 0 
R2- 1 . 0-RABAMP (13) 

DO  340  12-1. NY 

340  EL(I3. I2)-EL(I3, 12) *(R2+R1 *AW1 ( 12) ) 

350  CONTINUE 
C 

C  -  DETERMINE  STOKES  PROFILE 

ALPHA— (0.0,1 . 0) »YOST  »RKS/ZINT 

Y  FAC-R  FACY/YNST • • NH YP 
00  370  12-1 .NY 


61 
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135  YST0R1  (I2)-EXP(-YFAC*(YST0R2(I2)-Y0ST)**NHYP) 

136  370  CONTINUE 

137  DO  390  13-1 .NT 

138  DO  390  12-1 , NY 

139  ES( 13 , 12)— RAST  «YSTOR1 ( 12) *CEXP( ALPHA»YSTOR2( 12) ) 

140  390  CONTINUE 

141  RETURN 

142  C 

143  END 

144  C 

145  C 

146  C 

147  C 

148  SUBROUTINE  CFOUR2(FDATA,RWORK,NF,NV, ISIGN, ITYPE.RW1 . RW2) 

149  C 

150  C  THIS  SUBROUTINE  NAS  WRITTEN  BY  CURTIS  R.  MENYUK  11/88.  IT 

151  C  CALCULATES  THE  FOURIER  TRANSFORM  OF  A  SET  OF  VECTORS  STORED  IN  A  TWO- 

152  C  DIMENSIONAL  ARRAY.  THE  ROUTINE  TRANSFORMS  OVER  THE  OUTER  VARIABLE 

153  C  (SLOWLY  VARYING)  AND  VECTORIZES  OVER  THE  INNER  VARIABLE  (RAPIDLY 

154  C  VARYING).  THE  ALGORITHM  USED  IS  DESCRIBED  IN  NUMERICAL  RECIPES 

155  C  BY  PRESS.  ET  AL. .  CHAP.  12.  THE  ROUTINE  HERE  IS  BASED  ON  FOUR1  . 

1 56  C - 

157  C  MODIFIED  5/87: 

158  C  IF  NV-8  OR  LESS  THIS  SUBROUTINE  USES  THE  OMNI  LIB  ROUTINE  CFFT2 

159  C  TO  CARRY  OUT  THE  FOURIER  TRANSFORM  SERIALLY. 

160  C 

161  C  —VARIABLES— 

162  C 

163  C  FDATA  -  DATA  ARRAY.  IN  THIS  PROGRAM.  IT  IS  TREATED  AS  A  REAL 

164  C  ARRAY  WITH  2«NV  X  NF  ELEMENTS.  THE  CORRESPONDING 

165  C  COMPLEX  ARRAY  HAS  NV  X  NF  ELEMENTS. 

166  C  RWORK  -  WORK  ARRAY  WHERE  THE  NEEDED  COSINES  AND  SINES  ARE  STORED. 

167  C  IT  HAS  2»(NF— 1)  ELEMENTS 

168  C  NF  -  THE  OUTER  DIMENSION  OVER  WHICH  THE  ROUTINE  TRANSFORMS 

169  C  NV  -  THE  INNER  DIMENSION  OVER  WHICH  THE  PROGRAM  VECTORIZES 

170  C  ISIGN  -  SIGN  OF  THE  FOURIER  TRANSFORM 

171  C  I TYPE  -  0:  INITIALIZE  THE  WORK  ARRAY  (NF  IS  THE  ONLY  SIGNIFICANT 

172  C  PARAMETER;  NV  AND  ISIGN  ARE  IGNORED) 

173  C  1:  CARRY  OUT  THE  FOURIER  TRANSFORM 

174  C  RW1.RW2  -  WORK  ARRAYS  WITH  2»NF  ELEMENTS  USED  BY  CFFT2 

175  C  (INACTIVE  WHEN  NV  >  8) 

176  C  ICR.ICI  -  REFERENCES  TO  THE  WORK  ARRAY 

177  C  MMAX  -  SUMMATION  SEPARATION  IN  THE  D AN I E LSON—  LANCZOS  ROUTINE 

178  C  ~ 

179  DATA  TWOPI/6. 28318530717959/ 

180  DIMENSION  FDATA(2*NV . NF) , RWORK(5*NF/2) . RW1 (2»NF) . RW2 (2*NF) 

181  IER— 1 

182  IF  ( I TYPE. EQ.0)  GO  TO  1000 

183  IF  (ITYPE.NE.1)  THEN 

184  C 

185  C  -  ERROR  CHECK 

186  IER— 1 

187  RETURN 

188  ENDIF 

189  C 

190  c  —  IF  NV  -  8  OR  LESS,  CALCULATE  FOURIER  TRANSFORM  SERIALLY 

191  C 

192  IF  (NV.LE.8)  THEN 

193  DO  20  13-1 .NV 

194  DO  10  12-1. NF 

195  RW1 (2* 1 2)-FDATA( 2* 1 3,12) 

196  RW1 (2» 12-1 )-FDATA(2»I3-1 , 12) 

197  10  CONTINUE 
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1198 

1199 
1269 
1261 
1292 
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1297 
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1269 
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121 1 
1212 

1213 
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1215 
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1236 
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1232 
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1239 
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1266 


CALL  CFFT2(6,  ISIGN.NF ,RW1  .RWORK.RW2) 

DO  29  12-1 ,NF 
FDATA(2*I3, I2)-R*2(2. 12) 

FDATA(2*I3-1 . I2)-R«2(2* 12-1 ) 

29  CONTINUE 

RETURN 
END  IF 
C 

C  —  NV  >  8 
C 

C  —  BIT  REVERSAL  ROUTINE 
C 

J-1 

DO  166  1-1 .NF 
IF  (J.GT.I)  THEN 
DO  46  11-1 , 2*NV 
TEMP-FDATA(  I 1  ,  J ) 

FDATA( 1 1 . J )— FDATA(I 1,1) 

FDATA( 11,1 )— TEMP 
46  CONTINUE 

END  IF 
M-NF/2 

56  CONTINUE 

IF  ((M.GE.I).ANO.(J.GT.M))  THEN 
J-J-M 
LMrf/2 
GO  TO  56 
END  IF 
J-J+M 

166  CONTINUE 
C 

C  —  D AN I E LSON—  LANCZOS  ROUTINE.  THE  FOURIER  DATA  IS  RECOMBINED. 

C 

UMAX-1 

ICR-1 

ICI-2 

FSIGN-FLOAT(ISIGN) 

126  CONTINUE 

IF  (NF.GT.MMAX)  THEN 
I  STEP-2 *MMAX 
DO  266  M-1 , MMAX 
DO  188  I-M.NF.ISTEP 
J-I+MMAX 

DO  188  11-1 , 2»NV,2 

T  EMPR-RWORK ( I CR ) • FD ATA  fl 1 . J )-FS I GN  * RWORK ( ICI ) • FDATA ( 1 1  + 1 , J 
TEMPI-RWORK( ICR) .FDATA( 1 1  +  1 . J )+FSICN.RWORK( ICI ).FDATA( 1 1 . J 
FDATA(I1 ,J)-FDATA(I1 , I)-TEMPR 
FDATA ( 11+1 , J )-FDATA( 11+1 . I)-TEMPI 
FDATA ( 11,1 )-FDATA( 1 1 , I )+TEMPR 
FDATA ( 11+1,1 )-FDATA( 11+1,1 )+TEMPI 
186  CONTINUE 

ICR-ICR+2 
ICI— ICI+2 
288  CONTINUE 

MMAX- I STEP 
GO  TO  128 
END  IF 
RETURN 
C 
C 

C  -  ENTER  THE  INITIALIZATION  ROUTINE 

C 

1999  CONTINUE 
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1261 

C 

1262 

C  — 

IF  NV  -  8  OR  LE3S 

1263 

c 

1264 

IF  (NV.LE.8)  THEN 

1265 

CALL  CFFT2(1 . 1 .NF.RW1 .RWORK.RW2) 

1266 

RETURN 

1267 

END  IF 

1268 

c 

1269 

c  — 

IF  NV  >  8 

1276 

c 

1271 

UMAX-1 

1272 

ICR-1 

1273 

IC 1-2 

1274 

1126 

CONTINUE 

1275 

IF  (NF.GT.MMAX)  THEN 

1276 

ISTEP-2*MMAX 

1277 

THETA-TWOPI/I STEP 

1278 

WPR— 2 . 6*S IN(  6 . 5*THETA)**2 

1279 

WP I-SIN(THETA) 

1286 

WR-1 .6 

1281 

WI-6.6 

1282 

DO  1266  I^I.MMAX 

ItiaJI 

ittni 


ICR-ICR+2 

ICI-ICI+2 

TEMP-WR 

WR-WR • WPR-W I • WP I +WR 
WI-WI «WPR+T EMP  * WP I +W I 
CONTINUE 
MUAX-ISTEP 
GO  TO  1128 
END  IF 
RETURN 
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9  c 

10  C 

11  C 

12  C 

13  C 

14  C 

15  C 

16  C 

17  C 

18  C 

19  C 

20  C 

21  c 

22  C 

23  c 

24  C 

25  C 

26  C 

27  C 

28  C 

29  C 

30  C 

31  C 

32  C 

33  C 

34  C 

35  C 

36  C 

37  C 

38  C 

39  C 

40  C 

41  C 

42  C 

43  C 

44  C 

45  C 

46  C 

47  C 

48  C 

49  C 

50  C 

51  C 

52  C 

53  C 

54  C 

55  C 

56  C 

57  C 

58  C 

59  C 

60  C 

61  C 

62  C 

63  C 


This  program  was  written  by  Godehard  Hilfer  (3/87).  It  generates 
contour  and  croee  sectional  plots  from  the  data  generated  by  the 
transient  RAMAN  amplifier  eode  RAM2D1  written  by  Prof.  Curtis  R. 
Menyuk.  To  execute  this  program  it  has  to  be  linked  to  the 
DISSPLA  graphics  package. 

This  is  version  CD  which  is  adapted  for  thw  Central  Computing 
Facility  Cray  computer  at  the  Naval  Research  Laboratory  (Fall 
1987).  This  version  reads  a  record  at  a  time  and  processes  the 
field  data  contained  in  it.  The  field  data  of  the  next  record 
that  is  being  read  over-writes  the  previous  data  In  memory  such 
as  to  minimizs  the  memory  requirements  and  to  accommodate  large 
dimensionoi  field  doto  arrays.  This  process  entails  large  Input/ 
Output  transfer  costs.  Whenever  possible,  hence,  version  C  should 
be  used  which  stores  all  field  data  of  one  z-location.  This  Is 
recommended  particularly  for  one-dimensional  transient  (ny  <  9) 
operation  of  the  code. 


The  program  has  the  following  structure: 


F. . . 

i nput  data  f  1 1 


NPRAM1 

input  parameter  file 


PRAMl 

(this  program) 


|  cntr  | 


crssct 


ny s  x  i  s 
powbas 


-xlsFFT- 


mycon 
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I 


64  C 

65  C 

66  C 
87  C 

68  C 

69  c 

70  C 

71  C 

72  C 

73  C 

74  C 

75  C 

76  C 

77  C 

78  c 

79  C 

80  C 

81  C 

82  C 

83  c 

84  C 

85  C 

86  C 

87  C 

88  C 

89  C 

90  C 

91  C 

92  C 

93  C 

94  C 

95  C 

96  C 

97  C 

98  C 

99  C 

100  C 

101  C 

102  C 

103  C 

104  C 

105  C 

106  C 

107  C 

108  C 

109  C 

110  C 

111  C 

112  C 

113  C 

114  C 

115  C 

116  C 

117  C 

118  C 

119  c 

120  C 

121  C 

122  C 

123  C 

124  C 

125  C 

126  C 


PLT2.PLT 

graph! cs  out  put  f I  I • 


The  program  start*  by  sstting  default  values  for  the  graphics  output 
parameters  as  specified  in  ths  data  statement*.  These  default  values 
are  updated  by  the  values  in  the  input  fils  NrRAMI  which  allows 
format-free  input  through  the  two  nomslists  condat  and  zplot.  The 
updated  set  is  then  written,  depending  on  th*  value  of  the  flag 
parameters  Iprmt,  onto  th*  first  4  graphics  frames  in  th*  output  fil* 
F3RAM00X.  Th*  valu*  of  Iprmt(n)  should  bs  equal  to  1  if  th*  nth 
page  of  parameter  output  Is  desired,  and  equal  to  0  if  not 

Several  constants  are  precalculated  before  th*  large  DO-loop  500 
reads  through  and  plots  th*  data  In  file  F. .  .  .  Among  these  conetants 
arc  th*  end  values  and  interval  sizes  for  the  frequently  ploted  y 
and  t  coordinate  axes. 

The  following  main  part  of  this  program  acquires  th*  electric  field 
data  from  th*  input  data  file  F. . .  by  reading  sequentially  the  i-th 
record  specified  by  the  value  I  of  th*  consecutive  elesients  of  the 
vector  kz.  These  amplitude  data  are  converted  into  intensity  data 
if  necessary  and  then  handed  through  th*  arrays  srf  and  srfi  to  th* 
subroutine  entr  (for  contour  plotting)  and  to  th*  subroutine  ersset 
(for  cross  sectional  plots).  The  sequence  of  th*  resulting  plots  is 
as  fol lows: 

1  contours  pump  intensity 

1  sections  pump  intensity 

2  sections  pump  phase 

3  sections  pump  amplitude  (real/imag) 

II  contours  pump  FFT  intensity 

4  sections  pump  FFT  intensity 

5  sections  pump  FFT  phase 

6  sections  pump  FFT  amplitude  (real/imag) 

III  contours  Stokes  intensity 

7  sections  Stokes  intensity 

8  sections  Stokes  phase 

9  sections  Stokes  amplitude  (real/imag) 

IV  contours  Stokes  FFT  intensity 

10  sections  Stokes  FFT  intensity 

11  sections  Stokes  FFT  phase 

12  sections  Stokes  FFT  amplitude  (real/imag) 

V  contours  mat.  exet.  intensity 

13  sections  mat.  sxet.  intensity 

14  sections  mat.  exet.  phase 

15  sections  mat.  exet.  amplitude  (real/imag) 

VI  contours  mat.  exet.  FFT  intensity 

16  sections  mat.  exet.  FFT  intensity 

17  sections  mat.  exet.  FFT  phase 

18  sections  mat.  sxet.  FFT  amplitude  (real/imag) 

VII  contours  pump  and  Stokes  intensity 

19  sections  sum  of  pump  and  Stokes  intensity 
VIII  contours  pump  and  Stokes  FFT  intensity 

Th*  roman  numerals  toll  which  element  of  th*  vector  isrf  is  th* 
flag  that  determines  If  that  particular  contour  plot  will  b*  don* 
or  skipped: 

isrffn)  -  0  plot  skipped 

isrffn)  ■  1  plot  drawn  with  labeled  contours 

isrf(n)  —1  plot  drawn:  no  labels  on  contours 
The  arabiC  numeral*  of  th*  sections  indicate  th*  row  of  th*  complex 
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147  C 

148  C 

149  c 
159  C 

151  C 

152  C 

153  C 

154  C 

155  C 

156  C 

157  C 

158  C 
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164  C 

165  C 

166  C 

167  C 

168  C 

169  C 
179  C 
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173  C 
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179  C 
189  C 

181  C 

182  C 
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array  cseC  whlth  which  this  (action  la  associated.  Ths  column  number 
(second  index)  of  the  elements  of  cseC  numbers  the  cross  sectional 
plots  of  that  particular  surface.  A  maximum  of  nseC  (<  9)  cross 
sections  of  each  surface  can  be  drawn.  The  Imaginary  part  of  the 
elements  of  cseC  determines:  if  >9.8  that  this  sectional  plot  is 
not  requested 

if  >1.8  that  this  is  a  cross  section  parallel  to  the  y-axis 

of  the  surface  under  question  at  a  fixed  x-value  as 

given  In  real  units  by  the  real  part  of  the 
element  of  csec;  i.s.  the  first  index  of  the 
data  array(s)  srf(i)  is  being  held  constant  for  this 
plot  at  ths  value  IseC  which  is  the  grid  point  that 
corresponds  best  to  the  fixed  x-value; 
if  >2.8  that  this  is  a  cross  section  parallel  to  the  x-axis 

of  ths  surface  under  question  at  a  fixed  y-value  as 

given  in  rsal  units  by  the  real  part  of  the  element 
of  cssC  in  question;  i.s.  the  second  index  of  the 
data  array(s)  srf(i)  Is  being  held  constant  for  this 
plot  at  ths  value  IseC  which  is  the  grid  point  that 
corresponds  best  to  the  fixed  y-value. 

In  short:  the  imaginary  part  tails  which  variable  to  hold  constant. 

and  the  real  part  tells  at  what  value  (in  physical  units). 

When  one  dimensional  transient  eases  (ny.le.8)  are  being  investigated 
the  real  part  of  the  element  of  cseC  under  queetion  hae  to  be  set 
equal  to  the  number  (1.9, through  8.8)  of  the  element  of  the  vector 
I  type  In  subroutine  INIT  In  the  code  RAM2D1  in  order  for  the 
sectional  plot  to  contain  the  correct  data  and  label  of  that 
particular  case.  Recall  that  the  imaginary  part  hae  to  be  nonzero 
for  the  section  to  be  drawn.  Note  that  the  sections  #19  are  sofar 
intended  only  for  the  check  of  the  total  electromagnetic  intensity 
in  the  one-dimensional  transient  casee  (ny.le.8).  Set  the  real  and 
imaginary  part  of  the  elemente  in  row  19  of  the  array  ceeC  as 
described  above  in  this  paragraph  to  obtain  these  total 
e I ect romagnet 1C  Intensity  sectional  plots. 

More  details  on  how  the  individual  subroutines  work  precedes  their 
listings.  The  contouring  subroutine  cntr  mokes  use  of  the 
subroutine  rnycon  which  generates  a  customized  dotted  line  for  the 
half-height  contour.  The  cross  section  subroutine  crssct  calls 
frequently  on  the  subroutine  nysxis  which  finds  ’nice'  values  for 
coordinate  axis  limits  and  intervals,  nysxis  in  turn  uses 
subroutine  powbas  to  find  the  next  lower  integral  power  of  18  for 
maxima*  and  minimas.  Both  subroutines  cntr  and  crssct  share 
subroutine  xieFFT  when  making  secondary  axes  for  FFT-plots. 

— var i abl es — 

gain  >  see  RAM2D1 

?rfsz  >  physical  size  of  graphics  plots 
2  >  y-coordlnate  index  in  do-loops  125,128,133,136,145,148,153, 
156.165.168.173,176,185.188.193,196.265.288.213,225,228. 
233,236,258,269 

i 3  >  t-coordinate  index  in  same  do-loops  as  i2 
icond  >  see  RAM201 

if  I  ip  -  8/1  summand  checks  next  row  of  cseC  in  do-loops  136,159, 
179.198,218,239 

iln  >  number  of  dashed  contours  between  solid  contours  in 
sub>cntr 

is  >  cseC  column  index  in  do-loops  128,146,166,186,286,229; 

dummy  index  in  do— loops  136,156,178,196,218,238 
ishm  »  flag  for  holf-heiaht  contour  option  In  sub-cntr 
isrf  •  flag  vector  that  indicates  which  contour  plots  are  desired 
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190  C  ! ••  cstC  column  index  In  do-loop*  130,150,170,190,210,230 

191  C  j*rf  ■  signed  contour  plot  index;  >0  for  contour  lobele,  <0  no 

192  C  lobele 

193  C  ki  ■  vector  contains  the  Iteration  numbers  at  which  graphics 

194  C  plots  are  desired 

195  C  level  -  vector  containing  desired  level  heights  for  dashed 

196  C  contour* 

197  C  Iprmt  -  flag;  if  nonzero  indicates  list  of  parameters  is  desired 

198  C  necveC  -  data  switch  for  subroutine  nysxis 

199  C  ndeC  ■  desired  number  of  solid  contours  representing  power*  of  10 

200  C  nhyp  -  see  RAM2D1 

201  C  nmax  m  see  RAM2D1 ;  index  limit  in  do- loop  500 

202  C  np  «  see  RAM2D1 

203  C  npump  -  see  RAM2D1 

204  C  nsC  ”  cseC  row  index  in  do— loops  130,150,170,190,210,230 

205  C  nseC  ■  number  of  elements  tested  in  rows  of  csec 

206  C  nt  -  see  RAM2D1 

207  C  ntp  —  nt+1 

208  C  nwrt  -  number  of  records  In  unit  4 
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214 
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C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ny  -  see  RAM2D1 

nyp  ■  ny  +1 

nyh  -  ny/2 

nyhp  ■  nyh+1 

phi  -  see  RAM2D1 

phst  ”  see  RAM2D1 

pi  -  3.14159265358979 

rl  -  intensity  normalization  factor  8*pi/sp**d 

rabamp  -  see  RAM2D1 

ralasm  -  see  RAM2D1 

ramasm  -  see  RAM2D1 

ramp  •  see  RAM2D1 

rds I f m  -  see  RAM201 

rdt  -  step  size  in  time 

rdy  -  step  size  in  transverse  spatial  variable  y 

rint  -  see  RAM201 

rist  -  see  RAM2D1 

rkp  «  see  RAM2D1 

rks  -  see  RAM2D1 

sC  -  sum  of  imaginary  parts  of  a  row  of  csec;  test  variable 

sfe  -  see  RAM2D1 

sinit  ■  see  RAM2D1 

speed  -  see  RAM2D1 

sq  ■  see  RAM2D1 

srf  «■  array  of  data  from  which  contours  and  sections  are  plotted 
srfi  -  Imaginary  part  of  amplitude  data  for  cross  sectional  plots 
sstep  -  see  RAM2D1 
stot  -  see  RAM2D1 
tm  -  see  RAM2D1 
tml  -  time  coordinate  tower 
tm2  *■  time  coordinate  upper 
tmax  -  value  at  end  of  time  axis 
toC  -  see  RAM2D1 
toff  -  see  RAM2D1 
torig  -  value  at  beginning  of 
tost  -  see  RAM2D1 
tstp  -  time  axis  Interval 
t  two  -  see  RAM2D1 
twidth  -  see  RAM2D1 
twst  -  see  RAM2D1 

wfmax  -  nice  spatial  FFT  axis  end  val 
wforig  -  nice  spatial  FFT  axis  beginning  value 
wfstp  ■  nice  spatial  FFT  axis  interval 
yfmax  -  value  at  end  of  spatial  FFT  axis 


I  imit 
I  imit 


time  axis 


I  ue 
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C  yforig  -  value  at  beginning  of  spatial  FFT  axle 

C  yfstp  -  spatial  FFT  axis  interval 

C  ym  -  see  RAM2D1 

C  ym 1  -  y-coordinate  lower  limit 

C  yi*2  -  y-coordinate  upper  limit 

C  ym2m1  -  ym2-ym1 

C  ymax  -  value  at  end  of  transverse  epatiol  axis 

C  yoff  -  see  RAM2D1 

C  yorig  -  value  at  beginning  of  transverse  spatial  axis 

C  yost  -  see  RAM2D1 

C  ystp  -  transverse  spatial  axis  intsrval 

C  ywidth  -  see  RAM2D1 

C  ywst  -  see  RAM2D1 

C  zfinal  -  see  RAM2D1 

C  zint  -  see  RAM2D1 

C  zkeep  -  see  RAM2D1 

C  zstep  -  see  RAM2D1 

C  zval  -  value  of  z-coordinate  of  current  data/plot 

C  . . ••••*•*••••• . . . •••«•• 

C  MODIFICATION  9/87: 

C  THE  DATA  OUTPUT  FILE  NAME  WAS  CHANGED  FROM  'FRAM'  TO  THE  FOLLOWING: 
C  THE  DATA  FILE  NAME'S  FIRST  CHARACTER  (F)  STANDS  FOR  THE  OLD  DATA 
C  FILE  NAME  ’FRAM'.  THE  SECOND  CHARACTER  INDICATES  THE  T-DIMENSION, 

C  THE  THIRO  THE  Y— DIMENSION.  THE  DIMENSIONS  ARE  REPRESENTED  BY  THEIR 
C  NUMBER  (1-8)  IF  LESS  THAN  9.  IF  GREATER  THAN  8  THE  DIMENSIONS  ARE 
C  ASSUMED  TO  BE  INTEGRAL  POWERS  OF  2.  THE  N-TH  POWER  OF  2  IS 
C  REPRESENTED  BY  THE  N-TH  CHARACTER  OF  RLFBET.  THE  FOURTH  THROUGH 
C  NINETH  CHARACTER  IN  THE  FILE  NAME  ENCODES  THE  MONTH.  DAY.  AND  YEAR 
C  THE  PROGRAM  WAS  STARTED.  A  THENTH  THROUGH  TWELFTH  CHARACTER  IS 
C  APPENOED,  NUMBERING  THE  PARTIAL  DATA  FILES  THAT  ARE  GENERATED 
C  WHEN  THE  PROGRAM  RUNS  TWO-DIMENS I ONALLY . 

C  *•.•*••***••*•••«•••.•••*•••••••*•*•••••*•••••*•***•*••••*••* . 

c 

PARAMETER  (NP-10.NST-4000, NT-256, NTP-NT+1 . NX-8, NXI-19*NX, NY-1 28. 
1  NYH-NY/2 . NYHP— NYH+ 1 . NYP-NY+ 1 , NZ-20 ) 

C 

IMPLICIT  COMP LEX (A-E.Q) 

DIMENSION  INDEX(NP), ISRF(3) , ISTAT(2) , ITYPEI8) . IWHEN(NYP) . 

1  IWORKl 257) . KZ(NZ) . LEVEL(8) . LPRMT(4) ,AEQ(NT .NY) . 

2  AER(NT.NY) ,CSEC(19,NX) .PHL(NP) , RA8AMP(8) .RAMP(NP) , 

3  RDSLIMfB) .RINT(NP) .RTYPE(8) .SFE(NST) .SRFINTP.NYP) , 

4  SRF I (NTP , NYP ) , SRTYOF ( 1 . NP ) . SG ( NST ) , SSTEP ( NST ) . T I K ( NY ) . 

5  TM(2) .TOFF(Nr) .TWIDTH(NP) ,YM(2) .YOFF(NP) . YWIDTH(NP) 
CHARACTERS  D1 

CHARACTERS  D1A 
CHARACTER *2  02 
CHARACTERS  D3 
CHARACTERS  DTFL1 
CHARACTERS  DTFL1D 
CHARACTERS  DTFL2D 
CHARACTER* 1  DUM1 
CHARACTER* 1  DUM2 
CHARACTERS  EDN 
CHARACTERS  FRAM 
CHARACTER *6  FRM 
CHARACTER* 1  ISTP1 
CHARACTER* 1  ISTP2 
CHARACTER* 1  ISTP3 
CHARACTER* 10  NUMRAL 
CHARACTER'S  PON ID 
CHARACTER* 1 2  PDN2D 
CHARACTER* 12  PDN0 
CHARACTER* 1 2  P0N1 
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CHARACTER* 26  RLFBET 
CHARACTER* 1  TDIM 
CHARACTER* 1  YOIM 
INTEGER  OONYET, DAY .YEAR 

NAMELIST  /FLDATE/  DONYET.MONTH. DAY. YEAR. IPART, NEON 
NAMELIST  /CONDAT/  ILN. ISHM, LEVEL, LPRMT.NOEC. NSEC. ISRF.CSEC 
NAMELIST  /ZPLOT/  KZ 

COMMON  /GRAPHS/  ILN. ISHM. I SRF, I TYPE. LEVEL. NDEC.NHYP. NSEC. CSEC. 

1  GRFSZ .PI. RTYPE, SRF . SRF I . TMAX . TOR IG . TSTP , YFMAX .YFORIG. 

2  YFSTP, YMAX , YORIG, YSTP, WFMAX .WFORIG, WFSTP . ZBOT . ZMAX . ZSTEP . 

3  ZVAL 

COMMON  /NUM/  RDT.RDY.RDYF.TMI , TM2.YM1 , YM2.YM2M1 
EQUIVALENCE  (YOFF.SRTYOF) 

DATA  PI/3 . 14159265358979/ . SPEED/0 . 0299779/, 

1  WDLIM/0. 632120558828558/ 

DATA  DONYET/1/, MONTH/09/. DAY/28/. YEAR/87/. I PART/002/. NEDN/01/ 
DATA  I LN/8/ . I SHM/0/ . LEVEL/2 .3. 4. 5. 6, 7,8.9/. LPRMT/4* 1/ . NDEC/2/. 

1  NSEC/5/ . I SRF/8*0/ , CS  EC/NX I • (0 . 0 . 0 . 0)/ .GRFSZ/7 . 0/ 

DATA  KZ/NZ*0/ 

CALL  ASSIGN  (IRRE, *DN*L, ’NPRAM1 *L, 'A'L, ’FT01 'L) 

CALL  ASSIGN  (IRRE, *DN'L, ’EPRM’L, ’A’L, *FT59’L) 

READ  (1. FLDATE) 

WRITE  (59.*)  ‘READ  (1. FLDATE)’ 

WRITE  (59. FLDATE) 

READ  (1. CONDAT) 

WRITE  (59.*)  ’READ  (1. CONDAT)’ 

WRITE  (59. CONDAT) 

READ  (1.ZPLOT) 

WRITE  (59.*)  ’READ  (1, ZPLOT)’ 

WRITE  (59. ZPLOT) 


DETERMINE  DATA  FILE  NAME 

RLFBET- ’ ABCDEFGH I JKLMNOPQRSTUVWXYZ ’ 

1 2345678901234567890123456 
NUMRAL-’ 01 23450789’ 

IF  (NT.GT.8)  THEN 

ITDH^NINT(ALOC(FLOAT(NT))/ALOG(2.0)) 
TDIM-RLFBET  (ITDIM: I TDIM) 

ELSE 

TDIM-NUMRAL  (NT+1:NT+1) 

END  IF 

IF  (NY.GT.8)  THEN 

IYDH**NINT(ALOC(FLOAT(NY))/ALOC(2.0)) 
YDUA*RLFBEr  ( 1YDIM:  I  YDIM) 

ELSE 

YOIM-NUMRAL  (NY+1:NY+1) 

ENDIF 

WRITE  (59.*) ’ITDIM-  ’.ITDIM, 

WRITE  (59,*)’IYDII^  ’ , I YDIM, 

IF  (MONTH. GT.0 .AND. MONTH. LT. 10)  THEN 
IDUM1-1 
IDUM2-MONTH+1 
01 -NUMRAL  (IDUM2: IDUM2) 

ELSEIF  (MONTH. EQ. 10)  THEN 
IDUM1-2 
IDUM2-1 
DI-’A’ 

ELSEIF  (MONTH. EQ.11)  THEN 
IDUM1-2 
IDUM2-2 
D1-’B’ 


TDIM-  ’.TDIM 
YOIM-  '.YDIM 
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ELSE  I F  (MONTH. EQ. 12)  THEN 
IDUM1-2 
IDUM2-3 
D1-'C‘ 


ELSE 

WRITE  (59.0  'MONTH  INPUT  -  '.MONTH.'  IS  OUT  OF  RANCE' 
CALL  EXIT( 1 ) 

END  IF 

DUM1-NUMRAL  ( IDUM1 : IDUM1 ) 

DUM2-NUMRA  L  ( I DUM2 : IDUM2) 

D1A-DUM1//DUM2 

IF  (DAY.LT.1 .0R.DAY.0T.31)  THEN 

WRITE  (59. O  'DAY  INPUT  -  '.DAY.'  IS  OUT  OF  RANGE' 

CALL  EX I T ( 1 ) 

END  IF 

IDUM1-INT(OAY/10) 

IDUM2— OAY— 1 0* IDUM1 
DUM1-NUMRAL  ( IDUM1+1 : IDUM1+1 ) 

DUM2-NUMRA  L  ( I DUM2+ 1 : 1 DUM2+ 1 ) 

D2-0UM1//DUM2 

IF  (YEAR. LT.0.OR.YEAR.GT.99)  THEN 

WRITE  (59.  O  'YEAR  INPUT  -  '.YEAR.'  IS  OUT  OF  RANGE' 
CALL  EXIT(I) 

END  IF 

IDUM1-INT(YEAR/10) 

I DUM2-YEAR- 1 0 • I DUM 1 
DUM1-NUMRAL  ( IDUM1+1 : IDUM1+1 ) 

DUM2-NUMRAL  ( IDUM2+1 : IDUM2+1 ) 

D3-DUM1//DUM2 

FRM- ' F '  //TD IM//YD IM//D 1//D2 

IDUM2-NEDN— IDUM1  •  1 0 
DUM1-NUMRAL  ( I0UM1 +1 : IDUM1+1 ) 

DUM2-NUMRAL  ( I0UM2+1 : IDUM2+1 ) 

EDN-0UM1//DUM2 
I UN IT-4 


IF  (NT.GT.8.AND.NY.GT.8)  THEN 
ISTP1-NUMRAL( 1:1) 

IF  (DONYET.EQ.0)  THEN 
ISTP2-ISTP1 
ELSE 

I STP2-NUMRA  L ( 2 : 2 ) 

ENOIF 

DTFL1-FRM//ISTP2 

PON1-FRAM//ISTP1//ISTP1//ISTP2 

WRITE  (59  ,  • )  ’DTFL1-  \DTFL1 

WRITE  (59 . • J ’PDN1-  ' ,PDN1 

WRITE  (59 , •) ’ NEDN, EDN—  ’ , NEON, EON 

CALL  ACCESS! IRRE, ’DN ’ L.DTFL1 , 'PDN’L.PDNI , ' ED ’L, EDN) 

CALL  ASSIGN( IRRE, 'ON  *  L.DTFL1 , ’ A ’ L, ’ FT03 ’ L) 

ISPCT-1 
I UN IT-3 

IF  (DONYET.EQ.0)  GO  TO  40 
ELSE 

DTFL1D-FRM 
PDN1D— FRAM 

WRITE  (59 , •) ’DTFL1D-  '.0TFL1D 
WRITE  (59 , •) 'PDN1D-  ’ .PDN1D 

CALL  ACCESS! IRRE. ’ DN  ’  L , DTFL1D, ’ PDN' L, PDN1D , ’ ED' L, EDN) 
CALL  ASSIGN( IRRE , 'DN’L.DTFLID. 'A’L. ’ FT04’ L) 

ENOIF 
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442  C  —  READ  TIMING  INFORMATION  AND  SET  OF  INPUT  PARAMETERS 

443  C 

444  C  -  SKIP  TO  EOF  IN  UNIT  IUNIT 

445  CALL  SKIPR( IUNIT. 6«NST+3 . ISTAT) 

446  WRITE  (59.*)  ’SKIPPED  ' , ISTAT ( 1 ) , ’  RECORDS  AND  ’ , ISTAT(2) . ’  FILES 

447  1  IN  UNIT  * . IUNIT. *  .  ’ 

448  C 

449  C  -  BACKUP  ONE  RECORD  IN  UNIT  IUNIT 

456  CALL  SKIPR(IUNIT.-1 .ISTAT) 

451  WRITE  (59 , *)  ’SKIPPED  BACK  ’.ISTAT(l),’  RECORDS  AND  ' , ISTAT(2) . ’ 

452  1  FILES  IN  UNIT  ’.IUNIT,’ 

453  C 

454  C  -  READ  NUM8ER  OF  RECORDS  AND  TIMING  INFORMATION  FROM  FILE  RAM2D1 . FOR 

455  C  AND  REWIND  DATA  FILE 

456  READ  (IUNIT)  NWRT.ZVAL.STOT.SINIT.SSTEP.SFE.SQ 

457  WRITE  (59.0  ’READ  (IUNIT)  NWRT.ZVAL.STOT.SINIT.SSTEP.SFE.SQ’ 

458  WRITE  (59.0  ’ NWRT . ZVAL , STOT . S INIT ’ . NWRT . ZVAL . STOT .SINIT 

459  WRITE  (59.0  ’RAM2D1  RAN  ’.STOT.’  SECONDS.’ 

466  REWINO  IUNIT 

461  46  CONTINUE 

462  C 

463  C  -  READ  CODE  INPUT  PARAMETER 

464  READ  (IUNIT)  NPUMP . YM , TM. ZINT . RKP . RKS . YOFF. TOFF. YWIDTH . TWIDTH . 

465  1  YOST . TOST . YWST , TWST , R I NT , R I ST , RAMASM . RALASM , NHYP . PHL , PHST , 

466  2  TOC.ICOND.ITYPE.RTYPE.RABAMP.RDSLIM.ZSTEP.ZFINAL.ZKEEP. 

467  3  N MAX, TTWO, GAIN 

468  WRITE  (59 . • )  ’READ  (IUNIT)  NPUMP. YM.TM. ZINT. ’ 

469  WRITE(59.0 ’NPUMP. YM. TM . ZINT .RKP, RKS .YOFF. TOFF. YWIDTH . TWIDTH. YOST. 

478  1  TOST. YWST, TWST, RINT.RIST, RAMASM. RALASM. NHYP. PHL. PHST. TOC. 

471  2  ICOND. ITYPE.RTYPE.RABAMP.RDSLIM.ZSTEP.ZFINAL.ZKEEP.NMAX. TTWO. 

472  3  GAIN* 

473  WRITE( 59 , O  NPUMP. YM.TM. ZINT. RKP. RKS. YOFF. TOFF. YWIDTH. TWIDTH. YOST. 

474  1  TOST. YWST. TWST. RINT.RIST, RAMASM. RALASM. NHYP, PHL. PHST. TOC. 

475  2  I COND . I TYPE . RTYPE . RABAMP , RDSLIM, ZSTEP . ZFINAL . ZKEEP . NMAX . TTWO . 

476  3  GAIN 

477  C 

478  C  -  ERROR  CONDITIONS 

479  IF  (NSEC.LT. 1 .OR. NSEC. GT. NX)  THEN 

488  WRITE  (59. •)  ’NSEC  -  ’.NSEC.’  IS  OUT  OF  RANGE’ 

481  NSE”>NX 

482  END IF 

483  IF  (NT . LE . 8 .AND . NY. LE. 8)  THEN 

484  WRITE  (59. •)  ’NT  AND  NY  BOTH  LESS  THAN  9;  STOP’ 

485  ENDIF 

486  IF  (ICOND. NE. 3. AND. NY. LE. 8)  THEN 

487  WRITE  (59 , •)  ’WHEN  ICOND-3  NY  MUST  BE  LESS  THAN  9;  STOP’ 

488  CALL  EX I T ( 1 ) 

489  ENDIF 

496  IF  (ICOND. NE. 4. AND. NT. LE. 8)  THEN 

491  WRITE  (59, •)  ’WHEN  ICOND-4  NY  MUST  BE  LESS  THAN  8;  STOP' 

492  CALL  EXIT(1 ) 

493  ENDIF 

494  C 

495  C  -  RENAME  CONSTANTS 

496  TM1-TM(1) 

497  TM2-TMI2) 

498  YMI-YM(l) 

499  YM2-YM(2) 

586  YM2M1-YM2-YM1 

561  C 

562  C  -  INITIALIZE  DISSPLA  GRAPHICS 

583  CALL  COMPRS 

584  C 
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C  -  LIST  INPUT  PARAMETERS  ON  3  GRAPHICS  FRAMES  UPON  REQUEST 
C 

IF  ( LPRMT ( 1 ) . EQ.0)  GO  TO  80 


C  -  FIRST  FRAME  OF  PARAMETERS 
CALL  RESET(’ALL’) 

CALL  AREA2D(8.e.10.5) 

CALL  HEIGHT(0 . 17) 

SLT-2.0 

ZL-10.2 

CALL  MESSAG( 1  LIST  OF  INPUT  PARAMETERS! * , 1 00 , SLT , ZL) 

CALL  RESET( ’HEIGHT’)  ' 

SL1-1 .8 

SLT-0.0 

ZL-9.5 

CALL  MESSAGE  * ICONO  -  $* . 100, SLT. ZL) 

CALL  INTNO(lCOND,SL1 , ZL) 

IF  ( NT . GT . 8 . AND . NY . GT . 8)  THEN 
ZL-ZL-0.3 

CALL  MESSAGC ’ILN  -  $*,100, SLT. ZL) 

CALL  INTNO(ILN,SL1 ,ZL) 

ZL-ZL-0.3 

CALL  MESSAGC’ISHM  -  S’ . 100.SLT .ZL) 

CALL  INTNO(ISHM.SLI.ZL) 

ZL— ZL— 0 . 3 

CALL  MESSAGCNOEC  -  $’ .  100.SLT  ,ZL) 

CALL  INTNO(NDEC,SL1 ,Zl) 

ENOIF 

IF  (ICONO. EG. 2. OR. ICONO. EQ. 4)  THEN 
ZL-ZL-0.3 

CALL  MESS AG C ' NHYP  -  S’ , 100 .SLT .ZL) 

CALL  INTN0(NHYP.SL1 ,ZL) 

ENOIF 

ZL-ZL-0.3 

CALL  MESSAG( ' NMAX  -  $  * , 1 00 . SLT , ZL) 

CALL  INTNO(NMAX,SL1 .ZL) 

ZL-ZL-0.3 

CALL  MESSAG( ’ NPUMP  -  $’ , 100, SLT, ZL) 

CALL  INTNO(NPUMP,SL1 .ZL) 

NZLT-NZL+1 

ZL-ZL-0.3 

CALL  MESSAG(’NT  -  S’ . 100, SLT. ZL) 

CALL  INTNO(NT,SL1 .ZL) 

NZLT-NZL+1 

ZL-ZL-0.3 

CALL  MESSAG( 'NY  -  $’ , 100, SLT. ZL) 

CALL  INTNO(NY,SL1 ,ZL) 

ZL-ZL-0.3 

CALL  MESSAGC ’GAIN  -  S’ . 100.SLT ,ZL) 

CALL  REALNO(GAIN. 105.SL1 .ZL) 

IF  ( ICONO. EQ.2.0R. ICONO. EQ.3)  THEN 


ZL-ZL-0.3 
CALL  MESSAGC ’ PHST 


,  -  S’ .100. SLT, ZL) 

CALL  REALNO(PHST, 105.SL1 ,  ZL) 

ZL-ZL-0.3 

CALL  MESSAGC ’RALASM  -  S’ , 100. SLT. ZL) 
CALL  REALNOC RALASM, 105, SL1 .ZL) 


ZL-ZL-0.3 
CALL  MESSAGC ’RAMASM 


,  S’ .100. SLT, ZL) 

CALL  REALNO(RAMASM,105.SL1 ,ZL) 

ENOIF 


ZL-ZL-0.3 

CALL  MESSAGC ’RIST 


-  S’ .100. SLT. ZL) 
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I PLACE-2 

IF  (ABS(RIST) .GT. 9999.0. OR. ABS(RIST) . LT . 0.01)  IPLACE— 2 
CALL  REAL NO (R I ST, I PLACE , SL1 , ZL) 

ZL-ZL-0.3 

CALL  MESS AG ( 'RKP  -  $  * . 100 ,SLT . ZL) 

I PLACE-2 

IF  (ABS(RKP) .GT. 9999.0. OR. ABS(RKP) .LT. 0.01)  IPLACE— 2 
CALL  REALNO(RKP, IPLACE, SL1 ,ZL) 

ZL-ZL-0.3 

CALL  MESSAG(*RKS  -  $* , 100.SLT.ZL) 

IP LACE-2 

IF  (ABS(RKS).GT. 9999.0. OR. ABS(RKS).LT. 0.01)  IPLACE— 2 
CALL  REALNO(RKS. IPLACE. SL1 ,ZL) 

IF  (IC0ND.EQ.2.0R. IC0ND.EQ.3)  THEN 
ZL-ZL-0.3 

CALL  MESSAGE ’ TOC  -  $’ . 100.SLT.ZL) 

CALL  REALNO(TOC, 105.SL1 , ZL) 

ZL-ZL-0.3 

CALL  MESSAGE ’ TOST  -  $• , ie0,SLT.ZL) 

CALL  REALNO(TOST, 105.SL1 ,ZL) 

END  IF 
ZL-ZL-0.3 

CALL  MESS AG ( ' TTRO  -  $* . 100.SLT.ZL) 

CALL  REALNO(TTWO, 105, SL1 ,ZL) 

IF  (NT .GT . 8)  THEN 
ZL-ZL-0.3 

CALL  MESSAGE  TWST  -  %’  .  100.SLT.ZL) 

CALL  R£ALNO(TWST, 105.SL1 ,ZL) 

END  IF 

IF  (NY.GT.8)  THEN 
ZL-ZL-0.3 

CALL  MESSAGE  YOST  -  $• . 100.SLT.ZL) 

CALL  REALNO(YOST, 105, SL1 ,ZL) 

ZL-ZL-0.3 

CALL  MESSAGE YWST  -  $M00.SLT.ZL) 

CALL  REALNO(YWST. 105.SL1 ,ZL) 

END  IF 
ZL-ZL-0.3 

CALL  MESSAG( ’ZFINAL  -  $’,100.SLT,ZL) 

CALL  REALNO(ZFINAL.105,SL1 ,ZL) 

IF  (NY.GT.8)  THEN 
ZL-ZL-0.3 

CALL  MESSAG(  ’ ZINT  -  $M00,SLT,ZL) 

CALL  REALNO(ZINT , 105 ,SL1 ,ZL) 

ENOIF 

ZL-ZL-0.3 

CALL  MESSAG(  ' ZKEEP  -  $M00,SLT,ZL) 

CALL  REALNO( ZKEEP , 105 , SL1 , ZL) 

ZL-ZL-0.3 

CALL  MESSAG( ’ZSTEP  -  $’ , 100.SLT.ZL) 

CALL  REALNO(ZSTEP, 105, SL1 ,ZL) 

CALL  ENOPL(0) 

80  CONTINUE 

IF  (LPRMT(2) . EQ.0)  GO  TO  85 
C 

C  -  SECOND  FRAME  OF  PARAMETERS 
CALL  AREA2D(8. 0,10.5) 

ZL-10.2 

CALL  MESSAG( ’ LIST  OF  INPUT  PARAMETERS  (CONTD)S’ , 100.SLT.ZL) 

SL1-2.2 

SL2-2.9 

SL3-3.6 

SL4-4.3 


4 


* 


a 
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S 15-5.0 
SL6-5.7 
SL7-6.4 
SL8-7.1 
ZL— 9.5 

IF  (NT . GT . 8 . AND . NY . GT . 8 )  THEN 
CALL  MESSAG( ' ISRF(1-6)  -  $’ 

CALL  INTN0(ISRF(1).SL1 .ZL) 
CALL  INTNOi ISRFi 2) , SL2 , ZL) 
CALL  INTNOi ISRFi 3) , SL3.ZL) 
CALL  INTNOI ISRFi 4) , SL4.ZL) 
CALL  INTNOi ISRFi 5) , SL5.ZL) 
CALL  INTNOi ISRFi 8) .SL6 . ZL ) 
CALL  INTNOnSRF(7),SL7.ZL) 
CALL  INTNO(ISRF(8),SL8,ZL) 
ZL-ZL-0. 3 

CALL  MESSAGC  LEVEL  -  $* . 
CALL  INTNO(LEVEL( 1 )  ,SL1 ,ZL) 
CALL  INTNOi LEVEL! 2) . SL2.ZL) 
CALL  INTNOi LEVEL! 3) .SL3.ZL) 
CALL  INTNOi LEVEL14) .SL4.ZL) 
CALL  INTNOi LEVELi5) .SL5.ZL) 
CALL  INTNOi LEVEL! 6) .SL6.ZL) 
CALL  INTNOi LEVELl 7) .SL7.ZL) 
CALL  INTNO(LEVEL(8).SL8.ZL) 
ENOIF 

IF  ( ICONO. EQ.3)  THEN 
ZL-ZL-0 . 3 


CALL  MESSAC 

5CITYPE 

-  % 

CALL  INTNOI 

I  TYPE) 

1 

.  SL1 , ZL) 

CALL  INTNOI 

ITYPEI 

2 

.SL2.ZL) 

CALL  INTNOI 

.  ITYPEI 

3 

I.SL3.ZL) 

CALL  INTNO 

I  TYPE 

4 

I.SL4.ZL) 

CALL  INTNO 

I  TYPE 

5 

I.SL5.ZL) 

CALL  INTNOI 

I  TYPE 

• 

.SL6.ZL) 

CALL  INTNO 

I  TYPE 

7 

I.SL7.ZL) 

CALL  INTNO 

I  TYPE 

. SL8.ZL) 

END  IF 
SL1-2. 1 
SL2-3.2 
SL3-4.3 
SL4-5.4 


,  100.SLT.ZL) 


100.SLT.ZL) 


100.SLT.ZL) 


SL5-6.3 
IF  (ICOND.EQ.2 
ZL-ZL-0. 3 
CALL  MESSAGl 
CALL  REALNOl 
CALL  REALNOl 
CALL  REALNOl 
CALL  REALNOl 
CALL  REALNOl 
ZL-ZL-0. 3 
CALL  REALNOl 
CALL  REALNOl 
CALL  REALNOl 
CALL  REALNOl 
CALL  REALNOl 
runrr 


OR  .  ICOND .EQ.3)  THEN 

’ PHL( 1— 1 0)  -  $’ , 100, SLT ,ZL) 

PHl(1),105.SL1 ,ZL) 

PHL12) , 105 , SL2 ,ZL) 

PHL(3) , 105.SL3.ZL) 

PHL14) , 105.SL4.ZL1 
PHL(5),105,SL5,ZL) 

PHL(6) , 105 , SL1 . ZL) 
PHL(7).105.SL2.ZL) 

PHLI8 ) , 105.SL3.Zl) 

PHL19) , 105.SL4.ZL) 

PHL(10) , 105.SL5.ZL) 


IF  (ICONO. EQ. 4)  THEN 
ZL-ZL-0. 3 

CALL  MESSAGC RABAMP(  1-8)-  $M00,SLT,ZL) 
CALL  REALNO(RABAMP( 1 ) , 105 , SL1 .ZL) 

CALL  REALNO(RABAMP(2) . 105 .SL2. ZL) 
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CALL  REALNO (RABAMP (3) . 105.SL3.ZL) 

CAi_L  REALNO ( RABAMP (4;  ,  105.S14.ZI) 

CALL  REALN0(RA8AMP(5) , 105.SLS.ZL) 

ZL-ZL-0.3 

CALL  REALNO (RABAMP (6) . 105, SLI  .ZL) 

CALL  REALNO ( RABAMP 1 7  ) .105.SL2.ZL) 

CALL  REALNO(RABAMP(8; , 105 .SL3.ZL) 

ZL-ZL-0.3 

CALL  MESSAG( ’RDSLIM( 1-8)“  % ’ . 100 . SLT ,2L) 

CALL  REALNOt RDSL IM(1),105,SL1,ZL) 

CALL  REALNO(RDSLIM(2) .105.SL2.ZL) 

CALL  REALNOIRDSL IM( 3) . 105.SL3.ZL) 

CALL  REALNO(ROSLIM(4) . 105.SL4.ZL) 

CALL  REALNO(ROSL1M(S) .105.SL5.ZL) 

ZL-ZL-0.3 

CALL  REALNO/’RDSLIM(6)  .105. SLI  ,ZL) 

CALL  REALNO(RDSLIM(7) .105.SL2.ZL) 

CALL  REALN0(R0SLIM(8) .105.SL3.ZL) 

ENDIF 

ZL-ZL-0.3 

CALL  MESSAG('RINT(1-10)  -  $' . 100. SLT. ZL) 

I PLACE-4 

IF  (ABS(RINT(1)) . GT. 9999. 0. OR. ABS(RINT(1)).LT. 0.01) 
CALL  REALNO(RINT( 1 ) , IPLACE.SL1 .ZL) 

I PLACE-4 

IF  (ABS(RINT(2)) .GT. 9999.0. OR. ABS(RINT(2) ) . LT . 0.01) 
CALL  REALNO(RINT(2) . IPLACE.SL2 .ZL) 

I  PLACE-4 

IF  (ABS(RINT(3)) .GT. 9999.0. OR. ABS(RINT(3)).LT. 0.01) 
CALL  REALNO(RINT(3) . IPLACE.SL3 .ZL) 

I PLACE-4 

IF  (ABS(RINT(4) ) .GT .9999 . 0.OR. ABS(RINT(4) ) . LT . 0. 01 ) 
CALL  REALN0(RINT(4)  .  IPLACE , SL4 , ZL) 

I PLACE-4 

IF  (ABS(RINT(5) ) .GT . 9999 . 0 .OR. ABS(R1NT(5) ) . LT . 0 . 01 ) 
CALL  REALNO(RINT(5) . IPLACE . SL5 . ZL) 

ZL-ZL-0.3 
I  PLACE-4 

IF  (ABS(RINT(6)) .GT. 9999.0. OR. A8S(RINT(6) ) . LT . 0.01) 
CALL  REALNO(RINT(6) .IPLACE, SLI ,ZL) 

I PLACE-4 

IF  (ABS(RINT(7)) .GT. 9999.0. OR. ABS(RINT (7)) .LT. 0.01) 
CALL  REALNO(RINT(7) , IPLACE , SL2 . ZL) 

I PLACE-4 

IF  (A8S(RINT(S) ).GT. 9999.0. OR. ABS(RINT(8) ) . LT . 0.01) 
CALL  REALNO(RINT(8) . IPLACE . SL3 , ZL) 

I PLACE-4 

IF  (ABS(RINT(9)) .GT. 9999.0. OR. A8S(RINT (9)). LT . 0.01) 
CALL  REALNO(RINT(9) .IPLACE. SL4.ZL) 

I PLACE-4  , 

Ic  <ABS(RINT(10)) .GT. 9999.0. OR. ABS(RINT( 10)) . LT.0.01 
CALL  REALNO(RINT(10) . IPLACE. SL5.ZL) 

IF  (ICOND.EQ.3)  THEN 
ZL-ZL-0.3 

CALL  WIESSAGI  ’ RTYPE  -  $  ’  .  100. SLT  .  ZL) 

CALL  REALNO(RTYPE(1 ),105,SL1,ZL) 

CALL  REALNO! RTYPE ( 2 ),105,SL2.ZL) 

CALL  REALNO(RTYPE(3) .105.SL3.ZL) 

CALL  REALNO! RTYPE! 4) , 105.SL4.ZL) 

CALL  REALNO(RTYPE(5) , 105.SL5.ZL) 

ZL-ZL-0.3 

CALL  REALNO(RTYPE(6) , 105.SL1 ,ZL) 

CALL  REALNO(RTYPE(7) . 105.SL2.ZL) 


IPLACE— 2 
IPLACE— 2 
IPLACE— 2 
IPLACE— 2 
IPLACE— 2 

IPLACE— 2 
IPLACE— 2 
IPLACE— 2 
IPLACE— 2 
)  IPLACE— 2 
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CALL  REALN0(RTYPE(8) ,  105.SL3.ZL) 

END  IF 

IF  (NT.GT.8)  THEN 
ZL-ZL-0.3 

CALL  MESSAGf ‘TMf 1,2)  -  $'  , 100, SLT.ZL) 

CALL  REALNOfTMl . 105, SL1  ,ZL) 

CALL  REALNO(TM2, 105, SL2 ,ZL) 

ZL-ZL-0.3 

CALL  MESSAGf ,TOFF(1-10)  -  $\  100 . SLT .ZL) 

CALL  REALNOfTOFFf 1 ),105,SL1,ZL) 

CALL  REALNO(TOFF(2),105,SL2,ZL) 

CALL  REALNO(TOFF(3) .105.SL3.ZL) 

CALL  REALNOf TOFF (4) . 105 .SL4.ZL J 
CALL  REALNOfTOFFf 5) , 105 .SL5.ZL) 

ZL-ZL-0.3 

CALL  REALNO(TOFF(6) , 105 ,SL1 ,ZL) 

CALL  REALNO(TOFF(7) , 105.SL2.ZL) 

CALL  REALNOfTOFFfS). 105.SL3.ZL) 

CALL  REALNOfTOFFfS) , 105 .SL4.ZL) 

CALL  REALNO(TOFF(10).105.SL5.ZL) 

ZL-ZL-0.3 

CALL  MESSAGf ’TW I DTH  -  $’,100, SLT, ZL) 
CALL  REALNOfTWIDTHf I ) , 105, SL1 ,ZL) 

CALL  REALNOf TWI DTH (2) ,  1  05 ,SL2 ,ZL) 

CALL  REALNOf TWI DTH (3) , 1 05.SL3 , ZL) 

CALL  REALNOf TWI DTH (4) , 105.SL4.ZL) 

CALL  REALNOf TWI DTHf 5)  ,  1 05  ,SL5 ,  ZL) 

ZL-ZL-0 . 3 

CALL  REALN0(TWIDTH(6)  ,  1  05.SL1  ,ZL) 

CALL  REALNOf TWI DTHf 7) , 1 05.SL2 ,ZL) 

CALL  REALNOf TWIDTH (8) , 1 0S,SL3, ZL) 

CALL  REALNOf TWI DTHf 9) . 1 05.SL4.ZlJ 
CALL  REALNOfTWIDTHf 10). 105, SL5.ZL) 

END  IF 

IF  (NY.GT.8)  THEN 
ZL-ZL-0.3 

CALL  MESSAGf 'YOFF(1-10)  -  $* . 100, SLT.ZL) 

CALL  REALNOi YOFFf 1 ), 105 ,SL1 ,ZL) 

CALL  REALNOfYOFFf 2) , 1 05 ,SL2 ,ZL) 

CALL  REALNOfYOFFf 3) , 105.SL3.ZL) 

CALL  REALNOf YOFFf 4) , 105 .SL4.ZL) 

CALL  REALNOfYOFFf 5) , 105 , SL5 , ZL) 

ZL-ZL-0.3 

CALL  REALNOf YOFFf 6) , 105 ,SL1 ,ZL) 

CALL  REALNOfYOFFf 7) , 105 .SL2.ZL) 

CALL  REALNOf YOFF (8) , 105 .SL3.ZL) 

CAlL  REALNOf YOFFf 9) , 105 .SL4.ZL) 

CALL  REALNOfYOFFf 10), 105, SL5.ZL) 

ZL-ZL-0.3 

CALL  MESSAGf ’YMfl ,2)  -  $’. 100, SLT.ZL) 

CALL  REALNOfYMI , 105, SL1.ZL) 

CALL  REALNQfYM2, 105, SL2 ,ZL; 

ZL-ZL-0.3 

CALL  MESSAGf ’YW I DTH  -  $’,100, SLT.ZL) 
CALL  REALNOf YW I DTH ( 1),105,SL1,ZL) 

CALL  REALNOfYWIDTHf 2) , 105.SL2.ZL) 

CALL  REALNOf YWIDTHf 3) , 105.SL3.ZL) 

CALL  REALNOf YWIDTHf 4) , 1 05.SL4.ZL) 

CALL  REALN0(YWIDTH(5) ,105,SL5,ZL) 

ZL-ZL-0.3 

CALL  REALNOfYWIDTHf 6) , 105.SL1 ,ZL) 

CALL  REALNOf YW I DTH i7),105,SL2,ZL) 

CALL  REALNO(yWIDTH(8).105,SL3,ZL) 
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840 

841 
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843 
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846 

847 
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850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
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CALL  REALNO( YWIDTH (9) , 1 05 , SL4 , ZL) 

CALL  REALNO(YY»IDTH(10),  105.SL5.ZL) 

END  IF 

CALL  ENDPL(0) 

85  CONTINUE 

IF  (LPRMT(3) . EQ.0)  GO  TO  95 

C 

C  -  THIRD  FRAME  OF  PARAMETERS 
CALL  AREA2D(3 .0. 11.0) 

ZL-10.2 

CALL  MESSAG( ' LIST  OF  INPUT  PARAMETERS  (CONTD)$* , 100.SLT, ZL) 
ZL-9.8 

CALL  M£SSAG( ’ CSEC( 1-19 , 1-8)  -  $' . 10O.SLT.ZL) 

SL1-0. 1 
SL2-1 .0 
SL3-1 .9 
SL4-2.8 
SL5-3.7 
SL6*<4.0 
SL7-5.5 
SLS-6.4 
ZL-ZL-0.3 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-0.2 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-0.3 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-0.2 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-0.3 

CALL  REALNO(REAL(CSEC(3, 1 ) ) , 104.SL1 ,ZL) 

CALL  REALNO(AIMAG(CSEC(3,1)).104.SL2.ZL) 

CALL  REALNOi REAL(CSEC(3 , 2) i , 104.SL3.ZL) 

CALL  REALN0(AIMAG(CSEC(3.2)) .104.SL4.ZL) 

CALL  REALNO(REAL(CSEC(3,3)j , 104,SL5,ZL) 


IREAL(CS£C( 1 , 1 ) 
AIMAG(CSEC( 1 , 1 
REAL(CSEC( 1 .2) 
AIMAG(CSEC(1  ,2 
REAL(CSEC(1.3) 
AIMAG(CSEC(  1 ,3 
REAL(CSEC(1  ,4) 
AIMAG(CSEC(1  ,4 

IREAL(CSEC(1  .5) 
AIMAG(CSEC(  1 ,5 
REAL(CSEC(  1 .6) 
AIMAG(CSEC(  1  .6 
REAL(CSEC(  1  ,7) 
AIMAC(CSEC(1.7 
REAL(CSEC(1.8) 
AIMAG(CSEC(1  .8 

IREAL(CSEC(2 , 1 ) 
AIMAG(CSEC(2 , 1 
REAL(CSEC(2.2) 
A I MAG (CS EC (2 , 2 
REAL(CSEC(2 , 3) 
AIMAG(CSEC(2 . 3 
REAL(CSEC(2.4) 
AIMAG(CSEC(2 , 4 

IREAL(CSEC(2.5) 
AIMAG(CSEC(2 , 5 
REAL(CSEC(2 . 6) 
A I MAG (CS EC (2 . 6 
REAL(CSEC(2.7) 
AIMAG(CSEC( 2 , 7 
REAL(CSEC(2.8) 
A I MAG (CS EC (2 , 8 


1 , 104, SL1 ,ZL) 
D.104.SL2.ZL) 
), 104.SL3.ZL) 

I )  ,  1 04 , SL4 . ZL) 
1 . 104.SL5.ZL) 
l)  ,  104.SL6.ZL) 
1 , 104.SL7.ZL) 
l)  ,  104,SL8,ZL) 

.104.SL1 , ZL) 

)  ,  104.SL2.ZL) 
, 104.SL3.ZL) 

)  .104.SL4.ZL) 
,  ,  104 , SL5 , ZL) 

I  )  ,  1 04 , SL6 , ZL) 
,  104.SL7.ZL) 

)  ,  104.SL8.ZL) 

,104, SL1 .ZL) 

)  .  104.SL2.ZL) 
, 104.SL3 , ZL) 

)  ,  1 04 , SL4 , ZL) 
,  104.SL5 ,ZL) 

)  ,  1 04 , SL6 , ZL) 
, , 104.SL7.ZL) 
I)  ,  104.SL8.ZL) 

, 104, SL1 , ZL) 

)  ,  104.SL2.ZL) 
,  104.SL3.ZL) 

)  ,  104, SL4 , ZL) 
,  104.SL5.ZL) 

)  ,  104.SL6.ZL) 
,  104.SL7.ZL) 

>  i a  t  ci  n  7i  ^ 


m 
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987 
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989 
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911 

912 
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CALL  REALN0(AIMAC(CSEC(3,3) 
CALL  REALN0(REAL(CSEC(3 , 4) ) 
CALL  REALN0(AIMAG(CSEC(3,4) 
ZL-ZL-0.2 

CALL  REALNO(REAL(CSEC(3 ,5) ) 
CALL  REALNOi AIMAG(CSEC(3,5) 
CALL  REALNO(REAL(CSEC(3 , 6) ) 
CALL  REALN0(AIMAG(CSEC(3,6) 
CALL  REALNOi R£AL(CSEC(3 , 7) ) 
CALL  REALNOi AIMAG (CSEC(3 , / ) 
CALL  REALNO(REAL(CSEC(3.8)) 
CALL  REALNO(AIMAG(CSEC(3,8) 
ZL-ZL-0.3 


),184,SL6.ZL) 
.184.SL7.ZL) 
). 184.SL8.ZL) 

.184.SL1 .ZL) 
), 184,SL2,ZL) 
.104.SL3.ZL) 

) , 104.SL4.ZL) 
> 104.SL5.ZL) 
), 104.SL6.ZL) 
.184.SL7.ZL) 

) , 18< , SL8.ZL) 


CALL  REALN0(REAL(CSEC(4, 1 ) 
CALL  R£ALN0(AIMAG(CSEC(4, 1 
CALL  REALNO(REAL(CSEC(4,2) 
CALL  REALNO(AIMAG(CSEC(4.2 
CALL  REALN0(REAL(CSEC(4.3) 
CALL  REALNOi AIMAG(CSEC(4,3 
CALL  REALN0(R£AL(CSEC(4.4) 
CALL  REALN0(AIMAG(CSEC(4. 4 
ZL-ZL-0.2 


•184.SL1 , ZL) 
), 104.SL2.ZL) 
.  184.SL3.ZL) 

) , 104, SL4.ZL) 
.184.SL5.ZL) 

) , 184.SL6,ZL) 
.184.SL7.ZL) 

) , 104.SL8.ZL) 


CALL  REALNO(REAL(CSEC(4,5) 
CALL  REALNO(AIMAG(CSEC(4,5 
CALL  R£ALN0(REAL(CSEC(4.e) 
CALL  REALN0(AIMAG(CSEC(4.6 
CALL  REALNO(REAL(CSEC(4.7)' 
CALL  REALN0(AJMAG(CSEC(4,7 
CALL  REALN0(REAL(CSEC(4.8)' 
CALL  REALN0(AIMAG(CSEC(4.8' 
ZL-ZL-8.3 


.184.SL1 ,ZL) 

) , 184.SL2.ZL) 
.  104.SL3.ZL) 
).104,SL4.ZL) 
.184.SL5.ZL) 

) , 104.SL6.ZL) 
, 184.SL7 ,ZL) 
). 104.SL8.ZL) 


CALL  REALNO(REAL(CSEC(5.1) 
CALL  REALNO(AIMAG(CSEC(5. 1 
CALL  REALNO(REAL(CSEC(5.2) 
CALL  REALNOC AIMAG(CSEC(5 ,2 
CALL  REALNO(REAL(CSEC(5.3) 
CALL  REALNOt AIMAG(CSEC(5, 3 
CALL  REALN0(REAL(CSEC(5,4) 
CALL  REALN0(AIMAG(CSEC(5.4' 
ZL-ZL-0.2 


,  ,4L ; 

). 184.SL2.ZL) 
, 104.SL3.ZL) 
). 184.SL4.ZL) 
j184.SL5.ZL) 

) , 184, SL6.ZL) 
, 104.SL7.ZL) 
). 104.SL8.ZL) 


CALL  REALNO(REAL(CSEC(5,5) 
CALL  REALNOt AIMAG(CSEC(5,5 
CALL  REALNOi REAL(CSEC(5 , 6) 
CALL  REALNOi AI MAG (CS EC (5, 6 
CALL  REALN0(REAL(CSEC(5,7) 
CALL  REALNO(AIMAG(CSEC(5 , /' 
CALL  REALNO(REAL(CSEC(5.8)' 
CALL  REALNO(AIMAG(CSEC(5,8' 
ZL-ZL-0.3 


.104.SL1 .ZL) 

) , 184.SL2.ZL) 
,  104.SL3.ZL) 
). 104.SL4.ZL) 
, 104.SL5.ZL) 
). 184.SL6.ZL) 
.184.SL7.ZL) 
), 104.SL8.ZL) 


CALL  REALNO(REAL(CSEC(6, 1 ) 
CALL  REALNO(AIMAG(CSEC(6,1 
CALL  REALNOi REAL(CSEC(6 ,2) 
CALL  REALNOi AIMAG(CSEC(6, 2 
CALL  REALNO(REAL(CSEC(6.3) 
CALL  REALNOi A1MAG(CSEC( 6 , 3 
CALL  REALNOi REAL (CSEC( 6, 4) 
CALL  REALNO(AIMAG(CSEC(6.4 
ZL-ZL-0.2 


. 104.SL1 .ZL) 
), 184.SL2.ZL) 
,  184.SL3.ZL) 
), 184.SL4.ZL) 
. 184.SL5.ZL) 

) , 184,SL6,ZL) 
. 104.SL7.ZL) 
). 184.SL8.ZL) 


CALL  REALNO(REAL(CSEC(6,5)) 
CALL  REALNOi AIMAG(CSEC(6,5) 
CALL  REALNO(REAL(CSEC(6,6)) 
CALL  REALNOi AIMAG(CSEC(6 , 6) 
CALL  REALNO(REAL(CS*X(6, 7)) 


.184.SL1.ZL) 

) , 184.SL2.ZL) 
. 184.SL3.ZL) 
). 104.SL4.ZL) 
, 1 04, SL5 , ZL) 
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998 

999 
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CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-8.3 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-0.2 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-8.3 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
2L-2L-8 . 2 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-8.3 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-8.2 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-8.3 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 


A I MAG ( CS  EC ( 6 , 7 ) ) 
REAL(CSEC(6,8)), 
AIMAC(CSEC(6.8)) 

REAL(CSEC(7 . 1 ) ) , 
AIMAG(CSEC(7, 1 )) 
REAL(CSEC(7.2)). 
AIUAG(CSEC(7 .2)) 
REAL(CSEC(7,3)) . 
AIMAG(CSEC(7 , 3) ) 
REAL(CSEC(7,4)i . 
AIMAG(CSEC(7,4)) 


REAL(CSEC(7.8)). 
AIMAG(CSEC(7 , 8) ) 


REAL(CSEC(8 , 1 )  1 , 
AIMAG(CSEC(8, 1 ) ) 
,REAL(CSEC(8,2) 
AIMAG(CSEc(8 , 2 
REAL(CSEC(8, 3) 
AIMAG(CSEC(8, 3 
REAL(CSEC(8,4' 
AIMAG(CSEC(8,4 

REAL(CSEC(8 , 5) )  , 
AIMAG(CSEC(8 ,  5 1 ) 
REAL(CSEC(8,6)  ), 
AIMAG(CSEC(8,6)) 
REAL(CSEC(8 , 7)  )  , 
AIMAG(CSEC(8,7l) 
REAL(CSEC(8,8) I , 
AIMAG(CSEC(8 , 8)  ) 

REAL(CSEC(9 .  1 )  )  , 
A1MAG(CSEC(9 , 11) 
REAL(CSEC(9 , 2) ) . 
AIMAG(CSEC(9,2 )) 
REAL(CSEC(9,3)j, 
AIMAG(CSEC(9 .3) ) 
REAL^CSEC(9, 


AIMAd(llEC(9?4)) 


REAL(CSEC(9,5)), 
AIMAG(CSEC(9,5)) 
REAL(CSEC(9,6)' 
AIMAG(CSEC(9 . 6 
REAL(CSEC(9,7) 
AIMAG(CSEC(9, 7 
REAL(CSEC(9,8)i.  i 
AIMAG(CSEC(9,8)) . 

'REAL(CSEC( 18, 1 )) , 
AIMAG(CSEC( 18, 1 )) 
REAL(CSEC( 18 , 2) ) , 
AIMAG(CSEC(18.2)) 
REAL(CSEC(18,3)) , 


104.SL6.ZL) 

84.SL7.ZL) 

184.SL8.ZL) 

84.SL1 ,ZL) 
104, SL2.ZL) 
04,SL3,ZL) 
104, SLA, ZL) 
04.SL5.ZL) 
104.SL6.ZL) 
04.SL7.ZL) 
184.SL8.ZL) 

04.SL1.ZL) 

104.SL2.ZL) 

84.SL3.ZL) 

184, SLA, ZL) 

04.SL5.ZL) 

184,SL6,ZL) 

84,SL7,ZL) 

104.SL8.ZL) 

04.SL1.ZL) 
104, SL2.ZL) 
04, SL3.ZL) 
104.SL4.ZL) 
04.SL5.ZL) 
104.SL6.ZL) 
84.SL7.ZL) 
184.SL8.ZL) 

84.SL1.ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

1B4.SL4.ZL) 

84.SL5.ZL) 

184.SL6.ZL) 

84.SL7.ZL) 

184.SL8.ZL) 

04.SL1 . ZL) 

184.SL2.ZL) 

04.SL3.ZL) 

184.SL4.ZL) 

04.SL5.ZL) 

104.SL6.ZL) 

04.SL7.ZL) 

184.SL8.ZL) 

84.SL1.ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

184.SL4.ZL) 

04.SL5.ZL) 

184, SL6.ZL) 

84.SL7.ZL) 

104.SL0.ZL) 

104.SL1.ZL) 

, 104.SL2.ZL) 
104.SL3.ZL) 

, 104.SL4.ZL) 
104.SL5.ZL) 
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CAUL  REALNO(AIMAG(CSEC(10.3 
CAUL  REALNO(REAL(CS£C(10.4) 
CAUL  REALNO(AIMAG(CSEC(10.4 
ZL-ZL-0.2 

CALL  REALNO(REAL(CSEC{ 10,5) 
CALL  R£ALNO(AIMAG(CSEC(10.5 
CALL  REALNO(REAL(CSEC(  10,6) 
CALL  REALNOi AIMAG(CSEC(1 0, 6 
CALL  REALNO(REAL(CS£C(10,7) 
CALL  REALNO(AIMAG(CSEC(10.7 
CALL  REALNO(REAL(CSEC(10,8) 
CALL  REALNO(AIMAG(CSEC(10.8 
ZL-ZL-0.3 

CALL  REALNO(REAL(CSEC( 11,1) 
CALL  REALN0iAIMAG(CSEC(1 1,1 
CALL  REALN0(REAL(CSEC(11  .2) 
CALL  REALNOiA IMAG(CSEC(  1 1 ,2 
CALL  REALNO(REAL(CSEC( 1 1  ,3) 
CALL  REALNOCAIMAG(CSEC(1 1 ,3 
CALL  REALNO(REAL(CSEC(11  ,4) 
CALL  REALN0(AIMAG(CSEC(11.4 
ZL-ZL-0.2 

CALL  REALN0(REAL(CSEC(1 1 ,5) 
CALL  REALN0(AIMAG(CSEC(1 1 .5 
CALL  R£ALNO(REAL(CSEC( 11,6) 
CALL  REALNOiA IMAG(CSEC(1 1 .6 
CALL  REALNO(REAL(CSEC(11 .7) 
CALL  REALNOIA IMAG(CSEC(1 1,7 
CALL  REALNOi REAL(CSEC(1 1  ,8) 
CALL  REALNOQA IMAG(CSEC(1 1 ,8 
ZL-ZL-0.3 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
ZL-ZL-0.2 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 
CALL  REALNO 


I! 


REAL(CSEC(12.1V 
AIMAG(CSEC( 1 2,1 
REAL(CSEC( 12 , 2) 
AIMAG(CSEC(12,2 
REAL(CSEC( 1 2 , 3) 
AIMAG(CSEC(1 2,3 
REAL(CSEC( 12 , 4) 
AIMAG(CSEC(1 2,4 


REAL(CSEC(12,5)’ 
AIMAG(CSEC(12,5 
REAL(CSEC(12,6) 
AIMAG(CSEC(12,6 
REAL(CSEC(12,7) 
AIMAG(CSEC(12, / 

_ REAL(CSEC( 12 , 8) 

CALL  REALNO(AIMAG(CSEC(12,8; 
ZL-ZL-0.3 

CALL  REALNO(REAL(CSEC(13, 1 )' 
CALL  REALNOiA IMAG(CSEC(1 3,1 
CALL  REALNO(REAL(CSEC(13 ,2) 
CALL  REALNO(AIMAG(CSEC(13,2 
CALL  REALNO(REAL(CSEC(13.3) 
CALL  REALNO(AIMAG(CSEC(13,3 
CALL  REALNO(REAL(CSEC( 13,4) 
CALL  REALNO(A IMAG(CSEc( 1 3,4* 
ZL-ZL-0.2 

CALL  REALNO(REAL(CSEC(13.5); 
CALL  REALN0(AIMAG(CSEC(13,5 
CALL  REALNO(REAL(CSEC(13,0) 
CALL  REALN0(AIMAG(CSEC(13,6 
CALL  REALNO(REAL(CSEC( 13,7) 


104.SL6.ZL) 

04.SL7.ZL) 

104.SL6.ZL) 

04, SL1 , ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

104.SL4.ZL) 

04,SL5,2L) 

104.SL6.ZL) 

04.SL7.ZL) 

104.SL8.ZL) 

04.SL1.2L) 

104.SL2.ZL) 

04.SL3.ZL) 

104.SL4.ZL) 

04.SL5.ZL) 

104. SL6, ZL) 

04.SL7.ZL) 

104.SL8.ZL) 

04.SL1 ,ZL) 

104,SL2,ZL) 

04.SL3.ZL) 

104.SL4.zL) 

04.SL5.ZL) 

104,SL0,zL) 

04.SL7.ZL) 

104.SL6.ZL) 

04.SL1.ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

1 04. SL4, ZL) 
04, SL5.ZL) 
104. SL6. ZL) 
04.SL7.ZL) 
104.SL8.ZL) 

04.SL1 ,ZL) 

104.SL2.ZL) 

04.SL3.2L) 

104, SL4.ZL) 

04.SL5.ZL) 

104.SL6.ZL) 

04.SL7.ZL) 

104.SL8.ZL) 

04, SL1 , ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

104.SL4.ZL) 

04.SL5.ZL) 

104.SL6.ZL) 

04.SL7.ZL) 

104.SL8.ZL) 

04.SL1 ,ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

104.SL4.ZL) 

04.SL5.ZL) 
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m 


CALL  REALNO 
CALL  REALNO 
CALL  REALNOi 
ZL-ZL-0.3 
CALL  REALNO 
CALL  REALNO 
CALL  REALNOi 
CALL  REALNOi 
CALL  REALNOi 
CALL  REALNOi 
CALL  REALNOI 
CALL  REALNOi 
ZL-ZL-0.2 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOi 
CALL  REALNOI 
ZL-ZL-e.3 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
ZL-ZL-e.2 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
ZL-ZL-e.3 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNO 
CALL  REALNOI 
CALL  REALNO 
CALL  REALNO 
CALL  REALNOI 
ZL-ZL-e.2 
CALL  REALNOI 
CALL  REALNOI 
CALL  REALNO* 
CALL  REALNOI 
CALL  REALNO 
CALL  REALNOi 
CALL  REALNOi 
CALL  REALNOI 
ZL-ZL-e.3 
CALL  REALNOI 
CALL  REALNO 
CALL  REALNO 
CALL  REALNOI 
CALL  REALNOi 


’AIMAG(CSEC(13,7)) 
REAL(CSEC(13,8)J. 
AIMAG(CSEC( 13,8)) 

;real(csec(m.i)). 

AIMAG(CSEC( 14, 1)) 
REAL(CSEC(14, 2) ) . 
AIMAG(CS£C( 14,2)) 
REAL(CSEC(14.3)S. 
AIMAG(CS£C( 1 4 , 3) ) 
REAL(CS£C( 14,4)1 , 
>IMAG(CS£C(14.4)) 

'REAL(CSEC(14,5)). 
AIMAG(CS£C( 14,5)) 
REAL(CSEC(14. 6) ) , 
AIMAG(CSEC( 14,6)) 
REAL(CSEC(14,7)). 
AIMAG(CSEC(14.7)) 
REAL(CSEC(14,8)). 
AIUAG(CSEC(1 4,8) ) 

REAL(CSEC(15, 1)) . 
AIMAG(CSEC(1S,1)) 
REAL(CSEC(15,2)), 
AIMAG(CS£C( 15,2)) 
REAL(CSEC( 15,3) 1 . 
AIMAG(CSEC( 15, 3 )) 
REAL(CS£C(15,4)  i. 
AIMAG(CSEC( 15,4)) 


REAL(CSEC( 15 ,6)  I . 
AIMAG(CS£C( 15, 6) ) 
REAL(CSEC(15,7)). 
AIMAG(CSEC( 15,7)) 
REAL(CSEC( 15,8)i. 
AIMAG(CSEC(15 ,8) ) 

REAL(CSEC(16, 1)) , 
AIMAG(CSEC( 18,1)) 
REAL(CSEC( 1 8 , 2) ), 
AIUAG(CSEC( 16,2)) 
REAL(CSEC(16.3)), 
AIMAG(CSEC( 1 6 , 3) ) 
REAL(CSEC(16.4)>. 
AIMAG(CSEC( 16,4)) 

REAL(CSEC( 1 6 , 5) ) , 
AIMAG(CSEC( 16,5)) 
REAL(CSEC{16,e)), 
AIUAG(CSEC( 16,6)) 
REAL(CSEC(16,7)) , 
AIMAG(CSEC( 16,7)) 
REAL(CSEC(16,8) ) , 
A I MAG (CSEC(16,8)) 


REAL(CSEC(17.2)). 
AIMAg(CSEC(17,2) ) 
REAL(CSEC(17,3)), 


,ie4.sie,ZL) 

I04,SL7,ZL) 

104.SL8.ZL) 

I04.SL1.ZL) 

,  104.SL2.ZL) 
IB4,SL3,ZL) 

,  104.SL4.ZL) 
I04,SL5,ZL) 

,  104.SL6.ZL) 
I04.SL7.ZL) 
104.SL8.ZL) 

I04.SL1 ,ZL) 
104.SL2.ZL) 
04.SL3.ZL) 
104.SL4.ZL) 
04.SL5 ,ZL) 
104.SL8.Zl) 
04.SL7.ZL) 
104.SL8.ZC) 

e4.SL1.ZL) 

104.SL2.ZC) 

e4.SL3.ZL) 

104.SL4.ZC) 

04.SL5.ZL) 

104.SL8.ZC) 

04.SL7.ZL) 

104.SL8.ZC) 

04.SL1.2L) 

104.SL2.ZL) 

e4,SL3,ZL) 

104.SL4.zC) 

04.SL5.ZL) 

104.SL8.ZL) 

04.SL7.ZL) 

104.SL8.ZL) 

04.SL1 ,ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

104.SL4.ZL) 

04.SL5.ZL) 

104.SL6, ZL) 

04.SL7.ZL) 

104.SL8.ZL) 

04, SL1 , ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

10A.SL4.ZL) 

04.SL5.ZL) 

104.SL6.ZC) 

04.SL7.ZL) 

104.SL8.ZL) 

04.SL1 ,ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

I04.SL4.ZL) 

04.SL5.ZL) 
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CALL  REALNOf AIMAG(CSEC( 1 7,3)) 
CALL  REALNOl REAL (CS EC (  1 7 , 4)  I  , 
CALL  REALNO(AIMAG(CSEC(17,4)) 
ZL-ZL-0.2 

CALL  REALNO(REAL(CSEC(17,5)), 
CALL  REALNOl AIMAG(CSEC( 17,5) ) 
CALL  REALNOl REAL (CSEC( 17 , 6)  )  , 
CALL  REALNO(AIMAG(CSEC(17,6)) 
CALL  REALNOl REAL (CSEC( 17,7)1, 
CALL  REALNOl AIMAG(CSEC( 17, 7)) 
CALL  R£ALNO(REAL(CSEC(17.8)), 
CALL  REALNO(AIMAG(CSEC(17.8)) 
ZL-ZL-0.3 

CALL  REALNO(REAL(CSEC( 18, 1 )  )  , 
CALL  REALNO(AIMAG(CSEC(18.l)) 
CALL  REALNO(REAL(CSEC( 18,2)), 
CALL  REALNOl AIMAG(CSEC( 18,2)) 
CALL  REALNOiREAL(CSEC( 18 ,  3)  ) , 
CALL  REALNOl AIMAG(CSEC( 18 ,3) ) 
CALL  REALNOl REAL (CSEC( 18,4) ). 
CALL  REALNO(AIMAG(CSEC(18.4)) 
ZL-ZL-0.2 

CALL  REALNO(REAL(CSEC(18,5)), 
CALL  REALNO(AIMAG(CSEC(18,S l) 
CALL  REALNO(REAL(CSEC(18,6)), 
CALL  REALNOl AIMAG(CSEC( 18,81 ) 
CALL  REALNO(REAL(CSEC(18.7)). 
CALL  REALNO(AIUAG(CSEC(18,7) ) 
CALL  REALNO(REAL(CSEC(18,8)). 
CALL  REALNO(AIMAG(CSEC(18,8)) 
ZL-ZL-0.3 

CALL  REALNO(REAL(CSEC(19, 1)). 
CALL  REALNO(AIMAG(CSEC(19.1)) 
CALL  REALNOiREAL(CSEC(19,2)) , 
CALL  REALNOl AIMAG(CSEC(19 ,2)) 
CALL  REALNOl REAL(CSEC(  19, 3)}  , 
CALL  REALNOl AIMAG(CSEC( 19,3)) 
CALL  REALNOiREAL(CSEC(19,4) J , 
CALL  REALNO(AIMAG(CSEC(19,4)) 
ZL-ZL-0.2 

CALL  REALNO(REAL(CSEC(19 , 5)  , 
CALL  REALNOl AIMAG(CSEC( 19 ,3 ) ) 
CALL  REALNO(REAL(CSEC(19,8) J , 
CALL  REALNOiAIMAG(CSEC(19,6 j) 
CALL  REALNOiREAL(CSEC(19 , 7)  , 
CALL  REALNOl A IMAG(CSEC( 19,7)) 
CALL  REALNOl REAL(CSEC( 1 9,8)1, 
CALL  REALNO(AIMAG(CSEC(19.8)) 
CALL  RESET? 'HEIGHT* ) 

CALL  ENOPL(0) 

CONTINUE 


104.SL6.ZL) 

04.SL7.ZL) 

104.SL8.ZL) 

04.SL1 , Z  L) 

104.SL2.ZL) 

04.SL3.ZL) 

1 04 , SL4 , ZL) 
04.SL5.ZL) 
104.SL6.ZL) 
04.SL7 ,ZL) 
104.SL8.ZL) 

04.SL1 , ZL) 

104.SL2.ZL) 

04.SL3.ZL) 

104.SL4.Zl) 

04.SLS.ZL) 

104.SL6, ZL) 

04.SL7.ZL) 

104.SL8.ZL) 

04.SLt.ZL) 

104.SL2.ZL) 

04, SL3.ZL) 

104.SL4.ZL) 

04.SL5.ZL) 

104.SLe.ZL) 

04.SL7.ZL) 

104.SL8.ZL) 

04.SL1 , ZL) 
104.SL2, ZL) 
04.SL3.ZL) 
104.SL4.ZL) 
04.SLS.ZL) 
104.SL6.ZL) 
04.SL7.ZL) 
104.SL8, ZL) 

04.SL1 , ZL) 

104.SL2.Zl) 

04.SL3.ZL) 

104.SL4.ZL) 

04.SLS.ZL) 

104.SL8, ZL) 

04.SL7.ZL) 

104.SL8.ZL) 


-  PRECALCULATE  ’NICE*  END  VALUES  AND  INTERVALS  FOR  FREQUENTLY  USED 
COORDINATE  AXES.  NUMERICAL  STEP  SIZE 

T-AXIS 

IF  (NT.GT.8)  THEN 
TORIG— TM1 
TSTP-2.0 
TMAX-TM2 
NECLEC*— 1 

CALL  NYSXIS(TORIC.1 .NECLEC, TORIG. TSTP.TMAX) 

RDT-(TM2-TM1 )/NT 
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1198 

1199 
1208 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 
1213 
12<4 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 


C 

C 


C 

C 


C 

C 


c 

c 

c 


c 


END  IF 

IF  (NY.GT.8)  THEN 

-  Y-AXIS 

R0Y-(YM2M1)/NY 
Y0RIC-YM1 
YSTP-2.0 
YMAX-YM2 
NECLEC— 1 

CALL  NYSXIS(YORIG, 1 , NECLEC, YORIG.YSTP.YMAX) 

-  FFT-AXIS 

YFMAX-0. 5/ROY 
YFORIG— YFMAX 
YFSTP-YFMAX-YFORIG 
RDYF-YFSTP/NY 
WFORIG-YFORIG 
WFSTP-0.0 
WFMAX-YFMAX 
NECLEC— 1 

CALL  NYSXIS(WFORIG , 1 , NECLEC, WFORIG.WFSTP.WFMAX) 

WFSTP-2 . 0 

NECL£C*“1 

CALL  NYSXIS(WFORIG,1 .NECLEC, WFORIC.WFSTP.WFMAX) 

WFOR I G-WFOR IG+WFSTP 
WFMAX-WFMAX-WFSTP 
END  IF 

-  INTENSITY  NORMALIZATION  FACTOR 

R1-8.0*PI/SPEED 
R2-R1 *YM2M1 *YM2M1 

-  LOOP  THROUGH:  ALL  RECORDS  IN  DATA  FILE  /  ALL  DATA  FILES 

IF  (NT. GT. 8. AND. NY.GT.8)  THEN 
IF  (DONYET.EQ.0)  THEN 
NWRT-4 
NI0-2 
ELSE 

NI0-(NWRT-2)/6 
END  IF 
ELSE 

IF  (NY.GT.8)  THEN 
NI0-(NWRT-2)/6 
ELSE 

NI8-(NWRT-2)/3 
END  IF 
END  IF 

WRITE  (59.*)’NI0-  ’,NI8 
12-1 

KZOLD-0 

KZNEW-KZ(I) 

00  506  I0-1.NI0 

WRITE  (59, •5*1 0—  *.I0 

WRITE  (59 , •) ’KZOLO"  ’ .KZOLO 

WRITE  (59,0 ’KZNEW-  ’ .KZNEW 

WRITE  (59.0’IZ-  *,IZ 

IF  (KZNEW. LE.KZOLD.AND. I0.GT .2)  THEN 

WRITE  (59 , *) 'KZNEW  . LE.  KZOLO;  STOP  AT  10-  \I0 
GOTO  501 
END  IF 
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1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 
1269 
1278 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 
1288 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 
1289 
1298 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 
1388 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 
1318 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 
1328 

1321 

1322 

1323 


IF  (NT.GT.8. AND . NY . GT . 8 .  AND . KZNEW . EQ . 1 )  IUNIT-3 
IF  (10. NE. KZNEW)  THEN 
C 

C  -  NO  PLOTTING  AT  CURRENT  ZVAL.  MOVE  ON  IN  DATA  FILE/S 
IF  (NT.GT.8 . AND.NY.GT.8)  THEN 
IF  (10. GT. 1)  THEN 
ISPCT-ISPCT+1 
END  IF 
GO  TO  588 
END  IF 
GO  TO  298 
END  IF 

IF  (I0.NE.1)  THEN 

IF  (NT.GT.8. AND.NY.GT.8)  THEN 
IF  (DONYET.NE.0)  THEN 
ISPCT-ISPCT+1 
ELSE 

ISPCT— IPART 
END  IF 

INUMRL— INT( ISPCT/100) 

ISTP1-NUMRAL  ( INUMRL+1 : INUMRL+1 ) 

IRST-ISPCT-100* INUMRL 
INUMRL— I NT ( IRST/1 0) 

ISTP2-NUMRAL  (INUMRL+1 : INUMRL+1 ) 

INUMRL-IRST-1 8* INUMRL 
ISTP3-NUMRAL  ( 1NUMR L+1 : INUMRL+1 ) 

DTFL2D— FRM//'2’ 

P0N2D-FR AM// 1 STP 1 // ISTP2// 1 STP  3 
WRITE  (59 , •) ’-0TFL20  ’  . DTFL2D 
WRITE  (59,*) 'P0N20—  * .PDN2D 

CDIR$  BLOCK 

CALL  ACCESS ( IRRE . ’ DN *  L . DTFL2D , ’ PDN ’ L . PDN2D . ' ED ’ L . EDN) 

CALL  ASS IGN( IRRE , ’ DN ’ L , DTFL2D . ‘ A ' L . *  FTB4 *  L) 

ENOIF 
END  IF 

IF  (KZNEW. GT. 1 .OR. LPRMT(4) . NE. 1 . OR.NY. LE.8)  GO  TO  175 
C 

C  —  INITIALLY,  WHEN  NY.GT.8,  COMPUTE  DIVERSE  WAVE  NUMBER  AVERAGES 
C  AND  WRITE  THEM  ONTO  A  SEPARATE  GRAPHICS  OUTPUT  FRAME 
CALL  AREA2D(8.0,18.5) 

SLT-2.0 

ZL-18.2 

CALL  MESSAG( ’LIST  OF  OUTPUT  PARAMETERSS’ , 180.SLT.ZL) 

SLT-0.5 
ZL-ZL-8.7 
IF  (NT.GT.8)  THEN 
C 

C  -  READ  INITIAL  PUMP  DATA,  COMPUTE  TOTAL  PUMP  ENERGY 
READ  (IUNIT)  ZVAL.AEO 
WRITE  (59, •)  ’READ  (IUNIT)  ZVAL.AEQ’ 

TP 1-0.0 

DO  185  12-1 ,NY 
DO  185  13-1 ,NT 

TPI-TPI+AEQ(I3.I2)»CONJG(AEQ(I3,I2)) 

105  CONTINUE 

TP I —TP I • RDY *RDT /R 1 

CALL  MESS AG (’COMB I NED  LINEAR  ENERGY  DENSITY  OF  PUMPS  IN  MILLIJ 
10ULE/CM  -  $• . 100,SLT,ZL) 

SLTR-SLT+3.0 
ZL— ZL-0.35 
I PLACE-2 

IF  (ABS(TPI ) ,GT .9999 .9 .OR . ABS(TPI ) . LT .8.81 )  IPLACE— 2 
CALL  REALNO(TPI, IPLACE. SLTR.ZL) 
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1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 


WRITE  (59, •) ’TOTAL  LINEAR  ENERGY  DENSITY  IN  PUMPS  IN  ’ . 

1  ’MI LLI JOULES/CM  -  ’.TPI 
C 

C  -  READ  INITIAL  STOKES  DATA,  COMPUTE  TOTAL  STOKES  ENERGY 
READ  (1UNIT)  ZVAL.AEQ 
WRITE  (59, •)  ‘REAO  (IUNIT)  ZVAL.AEQ' 

TP  1-0.0 

DO  107  12-1, NY 
DO  107  13-1. NT 

TPI— TPI+AEQ( 13 , 12) *CONJG(AEQ( 13,12)) 

107  CONTINUE 

TPI-TPI»RDY«RDT/R1 
ZL-ZL— 0 .5 

CALL  MESSAG( ’COMBINED  LINEAR  ENERGY  DENSITY  OF  STOKES  IN  MILLI 
1  JOULE/CM  -  $’ .100.SLT.ZL) 

I PLACE-2 

IF  (ABS(TPI) . GT .9999 . 9 .OR . ABS(TPI ) . LT . 0.01 )  I PLACE— 2 
ZL-ZL— 0.35 

CALL  REALNO(TPI , IPLACE, SLTR ,ZL) 

WRITE  (59, •) ’TOTAL  LINEAR  ENERGY  DENSITY  IN  STOKES  IN 
1  ‘MI LLI JOULES/CM  -  ’.TPI 
CALL  SKIPR( IUNIT, 1.ISTAT) 

WRITE  (59. •)  ’SKIPPED  ’.ISTAT(I),’  RECORDS  AND  \ISTAT(2). 

1  ’  FILES  IN  UNIT  ’ .IUNIT, ’  . ’ 

ELSE 

CALL  SKIPR(IUNIT ,3, ISTAT) 

WRITE  (59.*)  ’SKIPPED  ’.ISTAT(l).’  RECORDS  AND  \ISTAT(2), 

1  '  FILES  IN  UNIT  ’.IUNIT,’  . ’ 

END  IF 
C 

C  -  INITIAL  PUMP  BEAMS  FFT  INTENSITY  DATA.  READ  PUMP  FFT  DATA  AND 
C  RESET  FILE  POINTER 

READ  (IUNIT)  ZVAL.AEQ 

WRITE  (59.*)  ’READ  (IUNIT)  ZVAL.AEQ’ 

CALL  SK I PR (lUNIT, -4, ISTAT) 

WRITE  (59.*)  ’SKIPPED  BACK  ’.ISTAT(I),’  RECORDS  AND  * , ISTAT (2) , ’ 

1  FILES  IN  UNIT  ’ .IUNIT, ’  .’ 

DO  110  12-1, NY 
DO  110  13-1, NT 

SRFI ( 13 , I2)-AEQ( 13 , I2)*C0NJG(AEQ( 13,12) )/R2 
110  CONTINUE 
C 

C  -  DETERMINE  INITIAL  SEQUENCE  OF  INDICES  OF  PUMP  BEAMS  ALONG  Y-AXIS 
C  FROM  LEFT  TO  RIGHT 

IF  (NPUMP.EQ.1)  INDEX(1 )— 1 
IF  (NPUMP.EQ.2)  THEN 

IF  (YOFF(1).LT.YOFF(2))  THtN 
INDEXil )-1 
INDEX(2)-2 
ELSE 

IND£X(1 )-2 
INDEX(2)— 1 
ENOIF 

ELSE  IF  (NPUMP.GT.2)  THEN 
MODE-2 

CALL  ORDERS (MOOE , I WORK . SRTYOF , INDEX , NPUMP ,1,8,1) 

ENOIF 

WRITE  (59,*)  ’PUMP  INDICES  SEQUENTIALLY’ , INDEX 
C 

C  -  ERROR  CONDITIONS  ANO  WARNINGS 

IF  ( YM( 1 ) . GT . YOFF (INDEX(I)))  THEN 

WRITE  (59. •)  ’FIRST  BEAM  OUTSIDE  Y-WINDOW;  STOP’ 

CALL  EXIT(1 ) 
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1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 


END  IF 

IF  ( YM(2) . LT . YOFF ( INDEX(NPUMP) ) )  THEN 

WRITE  (59, »)  ’LAST  SEAM  OUTSIDE  Y-WINDOW;  STOP  * 

CALL  EX I T ( 1 ) 

END  IF 

IF  (NPUMP.GT . 1 )  THEN 
DO  120  INP-1 .NPUMP-1 
IB-INOEX(INP) 

IBNX-IN0EX(INP+1) 

IF  (YOFF(IBNX)-YOFF(IB) . LE.YWIDTH(IBNX)+YWIDTH(IB))  THEN 
WRITE  (59,*)  'BEAM  '.IB.'  AND  BEAM  '.IBNX, 

1  '  ARE  TOO  CLOSE  FOR  AVERAGE  K  CALCULATIONS' 

END  IF 

RIB-RINT(IBNX)/RINT(IB) 

IF  (RIB. LT. 0.1 .OR. RIB. GT. 10.0)  THEN 

WRITE  (59.*)  'DISPARATE  INTENSITIES  OF  BEAM  '.IB.*  AND 
1  IBNX, ‘MAY  OBSCURE  SIGNATURES  IN  AVRG.  K  CALCS.’ 

ENOIF 

120  CONTINUE 
END  IF 
C 

C  -  CONSIDER  EACH  BEAM  AT  TIME  TOFF  WHEN  2-D:  CONSIDER  ALL  NT  CASES 
C  WHEN  1-D  (STATIONARY) 

SL-SL+0.5 

ZL-ZL-0.5 

CALL  MESSAG('PUMP$' ,100,SLT,ZL) 

SLT-SLT+1 .2 

CALL  M£SSAG( 'TOTAL  INTENSITY! 100 .SLT .ZL) 

SLT-SLT+2.6 

CALL  MESSAG('K-WIDTH$' .100.SLT.ZL) 

IFRKN0 

NCASES-NT 

IF  (NT.GT.8)  NCASES-1 
DO  170  ICS-1 .NCASES 
IF  (NCASES.GT.1)  THEN 

IF  (ZL. LT.NPUMP*0.3+0.5)  THEN 
IFRU-IFRM+1 
CALL  ENDPL(0) 

CALL  AREA2D(8. 0,10.5) 

ZL-10.2 

CALL  MESSAG( *  LIST  OF  OUTPUT  PARAMETERS  (CONTD)!'. 

1  100, SLT, ZL) 

ZL-9.5 

CALL  MESSAG('PUMP$' .100, SLT, ZL) 

SLT-SLT+1 .2 

CALL  MESSAG( 'TOTAL  INTENSITY*' . 100, SLT, ZL) 

SLT-SLT+2.6 

CALL  MESSAG('K-WIDTH$' ,100, SLT, ZL) 

IF  (IFRM.GT.8)  THEN 

WRITE  (59, •)  'LIST  OF  OUTPUT  PARAMETER  INTERUPTED’ 

GO  TO  170 
END  IF 
ENOIF 
SLT-0.1 
ZL-ZL-0.4 

CALL  MESSAG( 'CASE! ’ , 100 , SLT , ZL) 

SLT-SLT+0 . 8 

CALL  INTNO(ICS.SLT.ZL) 

END  IF 
IT- ICS 
ZL-ZL-0.1 
C 

C  -  CONSIDER  ONE  BEAM  AFTER  THE  OTHER  (ALONG  K-AXIS  FROM  RIGHT  TO  LEFT) 
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1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 


C 

C  - 


C 

c  - 


c 

c  - 


DO  160  INP-1.NPUMP 
IB-INDEX(INP) 

RIGHT  BEAM  LIMIT 
IF  (INP.EQ.1)  THEN 
JR-NY 
ELSE 
JR-JL 
END  IF 


LEFT  BEAM  LIMIT 

IF  (INP.EQ.NPUMP)  THEN 
JL-1 


ELSE 
IBNX 
YKL 
JL 
END  IF 


IX-INDEX(INP+1) 

0.5*(YOFF(IB)+YOFF(IBNX)) 
■AN I N T ( ( YK L- Y FOR I G ) • YM2M 1 ) 


•RKP/ZINT 


SELECT  TEMPORAL  PEAK  OF  EACH  BEAM  IN  2-D  CASES 
IF  (NT.GT.8)  THEN 
TOFIB- TOFF( 18) 

IF  (TOFIB. LT.TM1 . OR . TOFIB .GT . TM2 )  THEN 

WRITE  (59,*)  'BEAM  '.IB.'  IS  OUTSIDE  T-RANGE' 
GO  TO  160 
END  IF 

I T-AN I NT ( NT  « ( TOF I B-TM 1 )/ ( TM2-TM 1 ) ) 

ENOIF 


C 

C  -  COMPUTE  TOTAL  INTENSITY  OF  BEAM  IN  K-SPACE 
TIK(JL)-0.O 
DO  140  J-JL+1.JR 
TIK( J )— TIK( J— 1 )+SRFI ( IT, J)*RDYF 
140  CONTINUE 

WRITE  (59 ,  •)  *TIK  -  \TIK 
TIKBMX-TIK(JR) 

WRITE  (59.*) ’JL-  '.JL,'  JR-  ’.JR.'  TIKBMX-  * . TIKBMX, ’  IT-  ’ 

ZL-ZL-0.3 

SLT-0.7 

CALL  INTNO(IB.SLT.ZL) 

SLT-SLT+1 .3 
I PLACE-2 

IF  (ABS(TIKBMX).GT. 9999.0. OR. ABS(TI KBMX) . LT . 0.01)  IPLACE— 2 
CALL  REALNO(TIKBMX, IPLACE, SLT.ZL) 

WRITE  (59, ») ’TOTAL  INTENSITY  IN  K-  ’.TIKBMX 
C 

C  -  COMPUTE  K-WIDTH  OF  BEAM  (LINEAR  INTERPOLATION) 

IF  (TIKBMX.GT.1 .0E-64)  THEN 
DO  150  J-JL.JR 

TIK( J )-ABS( (2 .0*TIK( J )— TIK8MX)/TIKBMX)-WDLIM 
150  CONTINUE 
ELSE 

WRITE  (59 , •) 'POWER  INTERGRAL  IN  K-SPACE  VANISHES’ 

ENDIF 

JSRCH— JR-JL+1 

CALL  WHENFLE( JSRCH ,TIK(J  L) , 1 ,0 .0, IWHEN.NVAL) 

WRITE  (59 , •) ' I WHEN  -  ’ , I WHEN 
IWN1— IWHEN(1 )+JL-1 
IWN2-IWHEN(NVAL)+JL-1 

IF  (NPUMP .GT . 1 . AND . ( IWN1 . EQ. 1 .OR . IWN2 . EQ. NY) )  THEN 
WRITE  (59,*)  ’AVERAGE  K  CALCULATION  FAILED’ 

GOTO  170 
ENOIF 
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i 

Lte 


IF  (IWN2-IWN1 .IT. 4)  THEN 

WRITE  (59. •)  ‘INSUFFICIENT  RESOLUTION  FFT  BEAM  ‘.IB 
GOTO  170 
END  IF 

TIKDL1-TIK(IWN1-1)-TIK(IWN1) 

TIKDL2-TIK(  IWN2+1 )-TIK ( IWN2) 

WRITE  (59,.)’TIKDL1-  ‘ . TIKDL1 , '  TIKDL2-  ’.TIK0L2 

YKL-YFOR IG+RDYF* (IWN1+TIK(IWN1 )/( TIK( IWN1— 1 )— TIK(IWNI))) 

YKR-YF0RIG+RDYF.(IWN2-TIK(IWN2)/(tIK(IWN2+1)-T1k(iWN2))) 

WDTHKB-YKR-YKL 

SLT-SLT+2.4 

I  PLACE-2 

IF  (ABS(WOTHKB) .GT. 9999.0. OR. ABS(WDTHKB) . LT . 0.01)  IPLACE— 2 
CALL  REALNO(WDTHKB, IPLACE, SLT.ZL) 

160  CONTINUE 
170  CONTINUE 

CALL  ENOPL(0) 

175  CONTINUE 
C 

C  -  GENERATE  OESIRED  GRAPHICS  DATA  AMD  CALL  PLOTTING  SUBROUTINES 

C 

IPLTGP— 1 

IF  (NY.lE.8)  IPLTGP-2 
DO  220  IPLT-1 .6. IPLTGP 
C 

C  -  CHECK  WHICH  GRAPHS  ARE  REQUESTED 
IF  (NY.GT . 8 .AND . NT . GT . 8)  THEN 
JSRF-ISRF(IPLT) 

ELSE 

JSRF-0 
END  IF 
SC I “6 . 0 

LCSEC— 3*( IPLT— 1 )+1 
DO  180  IS-1.NSEC 

SC I -SC I +ABS ( A I MAG ( CSEC ( LCSEC . I S ) ) ) 

180  CONTINUE 
SCA-0 . 0 
I.CSEC-LCSEC+1 
DO  190  IS-1 , 2*NSEC 
IFLIP-INT((lS— 1 )/NSEC) 

NSC-LCSEC+I FLIP 

ISS— IS- I FLIP* NSEC 

SCA-SCA+ABS ( A I MAG (CSEC ( NSC , I SS ) )  ) 

190  CONTINUE 
C 

C  -  WHEN  A  GRAPH  IS  REQUESTED  READ  ITS  AMPLITUDE  DATA  IN  AND  RESET 
C  FILE  POINTER  TO  FIRST  OF  THE  RECORDS  WITH  THE  CURRENT  ZVAL 
WRITE  (59.*) ‘SCI ,SCA, 10. IPLT , LCSEC .JSRF, IZ.KZNEW.NWRT’ 

WRITE  (59,*)  SCI. SCA. 10. IPLT, LCSEC. JSRF, IZ.KZNEW.NWRT 
IF  (SCI .GT. 0.001 .OR. SCA. GT. 0.001 .OR. JSRF. NE.0)  THEN 
C 

C  -  MATCH  UP  EL.ES.Q.AEL.AES.AQ  STORAGE  WITH  EL.AEl . ES. AES.Q.AQ 


PLOTTING 

IF 

IF 

IF 

IF 

IF 

IF 


IF  (IPLT.EQ.1)  IRCD-1 
IF  (IPLT.EQ.2)  IRCD-4 
IF  (IPLT.EQ.3)  IRCD-2 
IF  (IPLT.EQ.4)  IRCD-5 
IF  (IPLT.EQ.5)  IRCD-3 
IF  (IPLT.EQ.6)  IRCD-6 

I RCD-1+MOD( IPLT+2*( IPLT-1 )+INT( IPLT/2)-1 . 6) 

CALL  SKIPR(lUNIT, IRCD-1, ISTAT) 

WRITE  (59.*)  ‘SKIPPED  ‘,ISTAT(1).‘  RECORDS  AND  ’,ISTAT(2), 
’  FILES  IN  UNIT  • , IUNIT 
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1576 

1577 

1578 

1579 
1586 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 
1596 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 
1666 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 
1669 
1616 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 
1619 
1626 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 
1629 
1636 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 


READ  (IUNIT)  ZVAL, AEQ 

WRITE  (59.*)  ’READ  (IUNIT)  ZVAL. AEQ1 

CALL  SKI PR (I UN IT, -I ROD, ISrAT) 

WRITE  (59.*)  ‘SKIPPED  BACK  ’ . ISTAT ( 1 ) . ’  RECORDS  AND  ' , ISTAT(2) , 
1  '  FILES  IN  UNIT  ‘ .IUNIT, * 

ELSE 

GO  TO  226 
END  IF 

C  -  INTENSITY  CONTOURS 

IF  (JSRF.NE.6)  THEN 
DO  266  1 2-1. NY 
DO  266  13-1 .NT 

SRF(I3.I2)-AEQ(I3,I2)*CONJG(AEQ(I3,I2))/R1 
266  CONTINUE 

CALL  CNTR(IPLT*JSRF) 

END  IF 


C 

C  -  INTENSITY  SECTIONS 

IF  (SCI. GT. 6. 661)  THEN 
X1-R1 

IF  ( IPLT . EQ.2 .OR . IPLT. EQ. 4.0R. IPLT. EQ.6)  X1-R2 
DO  265  I 2-1. NY 
DO  285  I 3-1, NT 

SRF(I3, I2)-AEQ(I3,I2)*CONJG(AEQ(I3. 12) )/X1 
285  CONTINUE 

CALL  CRSSCT ( LCSEC-1 ) 

END  IF 
C 

C  -  LOAD  PHASE  AND  AMPLITUDE  DATA 
IF  (SCA.GT.8.881)  THEN 
DO  218  12-1 ,NY 
DO  216  13-1. NT 
SRF(I3. I2)"REAL(AEQ( 13 . 12)) 

SRFI ( 13 , I2)«AIMAG(AEQ( 13 , 12) ) 

216  CONTINUE 

C 

C  -  PHASE  AND  AMPLITUDE  SECTIONS 
CALL  CRSSCT(LCSEC) 

END  IF 

226  CONTINUE 


C 

C  —  PLOTS  WITH  SUM  OF  THE  INTENSITIES  OF  PUMP  BEAMS  AND  STOKES  BEAM 
C  AND  LONGITUDINAL  INVARIANTS 
C 

DO  236  IS-1.NSEC 
SC-SC+ABS(AIUAG(CSEC( 1 9 , IS))) 

238  CONTINUE 


C 

C 


*F(7) . NE.6.AN0.NT .GT.8. AND.NY.GT.8)  THEN 
F-ISRF(7) 


DATA  OF  PUMPS  AND  STOKES  INTENSITY  COMBINED 
IFLG-6 
IF  ( ISRF 
JSRF* 

READ  (IUNIT) 

RE AO  (IUNIT) 

WRITE  (59.*) 

WRITE  (59.*) 

IFLG-1 

CALL  SKIPR(IUNIT,-2. ISTAT) 

WRITE  (59.*)  ‘SKIPPED  BACK  \ISTAT(1).‘  RECORDS  AND 
1  ISTAT(2) , "  FILES  IN  UNIT  ‘.IUNIT,’  .* 

DO  258  12-1, NY 
DO  258  13-1 .NT 


ZVAL, AEQ 
ZVAL.AER 
•READ  ' 
•REAO 


(IUNIT) 

(IUNIT) 


ZVAL. AEQ' 
ZVAL.AER’ 


ii 


ii 


£»‘ 


vdi 


m 


& 


90 
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1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 
1855 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 
1689 
1890 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 


SRF( 13, I2)-(AEQ(I3.I2)«CONJG(AEG(I3.I2)) 
1  +AER(I3, I2)«C0NJG(AER(I3. 12)5 

250  CONTINUE 

CALL  CNTR(7»4SRF) 

END  IF 


)/R1 


C  -  DATA  OF  INVARIANT  ALONG  2 
IF  (SC. GT. 0.001)  THEM 
C 

C  -  LONG I TUD INAL  INVARIANT  IN  1-0  TRANSIENT  CASE 
IF  (IFLG.EQ.0)  THEN 

READ  (lUNIT)  ZVAL.AEQ 
READ  (IUNIT)  ZVAL.AER 
WRITE  (59. •)  ‘READ  (IUNIT)  ZVAL.AEQ' 

WRITE  (59. •)  'READ  (IUNIT)  ZVAL.AER' 

CALL  SKIPR(IUNIT,-2, ISTAT) 

WRITE  (59. •)  ’ SKIPPEO  BACK  '.ISTAT(I).'  RECORDS  AND  • 

1  ISTAT(2) , '  FILES  IN  UNIT  '.IUNIT.'  . • 

END  IF 

00  255  12-1. NY 
DO  255  13-1. NT 

SRF( 13.  I2)-(RKS*AEQ( 13. I2)*CONJG(AEQ(I3, 12)) 

255  1  CONTINUE  +RKP*A£R<13' I2)*C0N,IC(aER(I*. I2>)  )/R1 

IF  (NY.GT.8)  THEN 
C 

C  -  LONGITUDINAL  INVARIANT  IN  1-D  STATIONARY  CASE  AND  IN  2-0 
DO  257  13-1 .NT 
SRF(73, 1 )— 0.0 

257  JONf .HUE 

DO  258  12-2. NY 
00  258  13-1 .NT 

SRF( 13. 12)— SRF( 13, I2)*RDY+SRF( 13, 12—1 ) 

258  CONTINUE 
ENOIF 

CALL  CRSSCT(19) 

ENOIF 

IF  (ISRF(8). NE.0.ANO. NT. GT. 8. AND. NY.GT.8)  THEN 
JSRF-ISRF(B) 

C 

C  -  DATA  OF  PUMPS  AND  STOKES  r'FT  INTENSITY  COMBINED 
CALL  SKIPR( IUNIT, 3. ISTAT) 

WRITE  (59,*)  'SKIPPED  '.ISTAT(I),'  RECORDS  AND  \ISTAT(2) 
1  '  FILES  IN  UNIT  ' .IUNIT 

READ  (IUNIT)  ZVAL.AEQ 
READ  (IUNIT)  ZVAL.AER 
WRITE  (59. •)  'READ  (IUNIT)  ZVAL.AEQ' 

WRITE  (59.*)  'READ  C IUNIT)  ZVAL.AER' 

CALL  SKIPR(IUNIT.—5, ISTAT) 

WRITE  (59 ,  •)  'SKIPPED  BACK  ’.ISTAT(I).'  RECORDS  AND  '. 

1  ISTAT(2)  , '  FILES  IN  UNIT  '. IUNIT. '  .' 

DO  269  I 2-1, NY 
DO  260  13-1. NT 

SRF( 13, I 2 )— (  AEQ(I3, I2)*CONJG(AEQ(I3, 12)) 

1  +AER( 13.12) *CONJG(AER( 13, 12))  )/R2 

260  CONTINUE 

CALL  CNTR(8*JSRF) 

ENOIF 


ENO  OF  PLOTTING  OATA  SET 

IF  ( NT . GT . 8 . AND .NY.GT.8. AND . I 0 . GT . 1 )  THEN 
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1782 

1783 

1784 

1785 
1788 

1787 

1788 

1789 
1718 

171 1 

1712 

1713 

1714 

1715 
1718 

1717 

1718 

1719 
1728 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 
1738 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 
1748 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 
1758 

1751 

1752 

1753 

1754 

1755 
1758 

1757 

1758 

1759 
1768 

1761 

1762 

1763 
1784 


CALL  RELEASE( IRRE. ’ DN ’ L , DTFL2D) 

WRITE  (59, •) 'RELEASED  ON-  * . OTFL2D 
END  IF 

KZQLO— KZNEW 

IZ-IZ+1 

KZNEW-KZ(IZ) 

298  CONTINUE 
C 

C  —  MOVE  POINTER  IN  DATA  FILE  ON  TO  FIRST  RECORD  WITH  NEXT  ZVAL 
C 

IF  (NY.GT.8)  THEN 

CALL  SKIPR( IUNIT, 6, ISTAT) 

WRITE  (59. e)  ’SKIPPED  * . ISTAT(I) , •  RECORDS  AND  \ISTAT(2), 

1  1  FILES  IN  UNIT  ’.IUNIT 

ELSE 

CALL  SKIPR( IUNIT.3, ISTAT) 

WRITE  (59. •}  ’SKIPPED  ’.ISTAT(I),’  RECORDS  AND  *.ISTAT(2). 

1  *  FILES  IN  UNIT  ’.IUNIT 

END  IF 

566  CONTINUE 

C 

C  -  CLOSE  GRAPHICS  SURFACES.  ENO  PROGRAM 

C 

581  CONTINUE 

CALL  DONEPL 
CALL  EX I T ( 1 ) 

END 

c 

c 

c 

SUBROUTINE  CNTR(KSRF) 
c 

C  This  subroutine  was  written  by  Godehard  Hilfsr  and  Curtis  R.  Menyuk 
C  (2/87).  It  uses  tbs  commercial  graphics  package  DISSPLA  (SDSS)  to 
C  generate  a  contour  plot  of  the  data  In  array  srf. 
c 

C  Thie  subroutine  employs  the  subroutine  nysxis  to  compute  ’nice’  tick 
C  marks  along  the  coordinate  axes  and  the  subroutine  xisFFT  to  compute 
C  the  location,  extremas  and  Intervals  of  the  transformed  variable  axis 
C  in  FFT— p lots.  Depending  on  the  value  of  ksrf  vorlous  titles, 

C  coordinate  axes  and  labels  are  selected  and  drawn.  The  sign  of 
C  ksrf  toggles  the  labeling  option  of  the  main  contour  lines 
C  (positive  ksrf  labels,  negative  ksrf  no  labels).  The  main  contour 
C  linee  are  solid  lines  representing  Integral  powers  of  16.  ndeC  such 
C  lines  will  be  drown  below  the  surfoce  maximum,  tin  (<9)  other 
C  contour  lines  (dashed  lines)  are  drawn  between  the  main  contour 
C  lines  corresponding  to  the  Integral  multiples  of  the  next  lower 
C  integral  power  of  ten.  Which  Integral  multiples  ore  drawn  is 
C  determined  by  the  first  iln  slements  of  the  vector  level.  If 
C  I shm  -  1  a  dotted  contour  will  mork  the  half-height  level,  If 
C  ishm  -  6  this  line  will  net  be  drown.  If  Ishm  —1  the  half-height 
C  contour  and  a  dot  at  the  surfoce  maximum  should  be  drown. 

C 

C  —variables— 

c 

C  grfsz  -  physical  size  of  graphics  plots 

C  i 2  -  y-eoordlnats  index  in  do-loops  228,236 

C  13  -  t-coordinate  index  in  do-loops  225,236 

C  iln  -  number  of  dashed  contours  between  solid  contours 

C  ishm  «  flag  for  half-height  contour  option  In  sub-cntr 

C  ksrf  -  index  numbsr  of  surface  that  is  being  contoured 

C  lobl  -  labelling  variable 
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1765  C  level  -  vector  with  desired  level  heights  for  doshed  contours 

1766  C  Iv  -  index  do- loop  246 

1767  C  ndeC  -  desired  number  of  solid  contours  representing  powers  of  16 

1768  C  nscvsC  —  data  switch  for  subroutine  nysxis 

1769  C  nt  —  see  RAM2D1 

1776  C  ntp  -  nt+1 

1771  C  ny  -  see  RAM2D1 

1772  C  nyp  -  ny+1 

1775  C  rdy  *  step  size  In  transverse  spatial  variable  y 

1774  C  erf  -  array  of  data  from  which  contours  are  plotted 

1775  C  tml  -  time  coordinate  lower  limit 

1776  C  ti*2  -  time  coordinate  upper  limit 

1777  C  tmax  -  value  at  end  of  time  axis 

1778  C  torig  -  value  at  beginning  of  time  axis 

1779  C  tstp  -  time  axis  interval 

1786  C  wfmax  «  nice  spatial  FFT  axis  end  value 

1781  C  wforig  —  nice  spatial  FFT  axis  beginning  value 

1782  C  wfstp  -  nice  spatial  FFT  axis  interval 

1785  C  xdum  -  dummy  variable  holding  the  x-coordinate  of  two  points 

1784  C  ydum  -  dummy  variable  holding  the  y-coordinote  of  two  points 

1785  C  yfmax  -  value  at  end  of  spatial  FFT  axis 

1786  C  yforig  —  value  at  beginning  of  spatial  FFT  axis 

1787  C  yfstp  *  spatial  FFT  axis  interval 

1788  C  ymax  -  value  at  end  of  transverse  spatial  axis 

1789  C  yorig  -  value  at  beginning  of  transverse  spatial  axis 

1796  C  ystp  -  transverse  spatial  axis  interval 

1791  C  yml  -  y-coordinats  lower  limit 

1792  C  ym2  -  y-coordinote  upper  limit 

1795  C  zbot  -  logarithmic  data  cutoff 

1794  C  zincr  -  special  contour  separation 

1795  C  zlev  -  Integral  power  of  16  next  to  data  maximum 

1796  C  zmax  -  data  maximum 

1797  C  zplane  -  reference  level  for  contours 

1798  C  zval  -  value  of  z-coordinate  of  current  data/plot 

1799  C  - 

1866  c 

1861  PARAMETER  (NT-256, NTP-NT+1 .NX-8. NY-128, NYP-NY+1 ,NYTP-NYP*NTP) 

1862  C 

1865  IMPLICIT  COMPLEX ( A— E.Q) 

1864  DIMENSION  ISRF(8J . ITYPE(B) . LEVEL(8) ,CSEC( 19. NX) ,RTYPE(8) . 

1805  1  SRF(NTP.NYP).SRFI(NTP.NYP),SRFSEQ(NYTP).XDUM(2).YDUM(2) 

1866  COMMON  /GRAPHS/  ILN. ISHM, ISRF, I TYPE, LEVEL, NDEC, NHYP, NSEC, CSEC, 

1807  1  GRFS2, PI. RTYPE.SRF.SRFI .TMAX, TORIG, TSTP. YFMAX. YFORIG, 

1868  2  YFSTP , YMAX , YORIG . YSTP , WFMAX , RFOR IG , WFSTP , ZBOT . ZMAX , ZSTEP , 

1809  5  ZVAL 

1810  COMMON  /NUM/  ROT .ROY.ROYF , TM1 , TM2.YM1 .YM2.YM2M1 

1811  COMMON  WORK(25000) 

1812  EQUIVALENCE  (SRF.SRFSEQ) 

1815  C 

1814  C  -  NO  CONTOURINC  IN  ONE  DIMENSIONAL  CASES 

1815  IF  (NT.LE.8.0R.NY.LE.8)  RETURN 

1816  C 

1817  C  -  TOGGLE  LABELLING  DEPENDING  ON  SIGN  OF  KSRF 

1818  LABL-’ LABELS’ 

1819  IF  (KSRF.LT.0)  LABL-’ NOLABELS' 

1826  KSRF-ABS(KSRF) 

1821  C 

1822  C  -  SURFACE  DATA 

1825  C  -  MAKE  DATA  ARRAY  SYMMETRIC  TO  OBTAIN  AXIS  LABELS  ('NICE')  AT  AXIS  END 

1824  DO  206  13-1, NT 

1825  SRF(I5.NYP)-SRF(I3. 1) 

1826  200  CONTINUE 

1827  DO  210  12-1 .NY 


93 
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1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 
1861 
1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 
1881 
1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 


SRF(NTP.I2)-SRF(1.I2) 

210  CONTINUE 
C 

C  -  FIND  OATA  MAXIMUM.  ITS  INTEGRAL  POWER  OF  TEN  AND  CORRESPONDING 
C  MANTISSA 

ZMAX-SRFSEQ ( I SMAX ( NYTP- 1 , SRFSEQ, 1 ) ) 

IF(ZMAX . LE. 0.0) THEN 

WRITE  (59.*)  ‘wornlng:  ZMAX  IS  ZERO  OR  NEGATIVE  WHEN  KSRF 
1  KSRF 

RETURN 
END  IF 


C 

C  -  DETERMINE  LOWER  OATA  CUTOFF 

ZLEV-10.0**INT(ALOG10(ZMAX)) 

ZBOT“( INT(ZMAX/ZLEV)+0 . 5) *ZLEV/1 0 . 0*  *NDEC 

IF(Z80T. LE.0.0)  WRITE  (59.*)  ‘warning:  ZBOT  IS  ZERO  OR  NEGATIVE 
1  ‘  WHEN  KSRF  -  ‘.KSRF 

SRF(NTP.NYP)-ZBOT 
C 

C  -  START  A  NEW  GRAPHICS  FRAME  FOR  THIS  CONTOUR  PLOT 
CALL  RESET ( ‘ALL’ ) 

CALL  INTAXS 

CALL  AREA2D(GRFSZ.GRFSZ) 


C 

C  -  HEADLINE.  LABELS.  AND  COORDINATE  SYSTEM 


GO  TO  (211,212,213.214.215.21 

211  CALL  HEAD IN( *  TRANS I ENT  RAMAN: 
GO  TO  222 

212  CALL  HEAOIN( ‘TRANSIENT  RAMAN: 
GO  TO  222 

213  CALL  HEAD IN( ‘TRANSIENT  RAMAN: 
GO  TO  222 

214  CALL  HEAD IN( ‘TRANSIENT  RAMAN: 
GO  TO  222 

215  CALL  HEAOIN(‘ TRANSIENT  RAMAN: 
GO  TO  222 

216  CALL  HEAD I N{ ‘TRANSIENT  RAMAN: 

1  100.1.5,1) 

GO  TO  222 

217  CALL  HEADIN( 'TRANSIENT  RAMAN: 
GO  TO  222 


1.217. 218)  KSRF 

PUMP  (PWR)$‘ ,100.1 .5. 1) 

PUMP  (FFT,  PWR)$‘. 100. 1.5,1) 

STOKES  (PWR)$‘. 100, 1.5.1) 

STOKES  (FFT,  PWR)$‘ . 1 00. 1 .5. 1 ) 

MATERIAL  EXCITATIONS' . 100, 1 . 5. 1 ) 

MATERIAL  EXCITATION  (FFT)$‘, 

PUMP  AND  STOKES  (PWR)S’ , 100, 1 .5. 1 ) 


218  CALL  HEAOIN( ‘TRANSIENT  RAMAN:  PUMP  AND  STOKES  (FFT.  PWR)$‘. 

1  100,1.5.1) 

222  CONTINUE 

CALL  MESSAG(’Z  -  $*.100,5.9,7.1) 

IPLACE-2 

IF  (ABS(ZVAL).GT. 9999.0. OR. ABS(ZVAL) . LT. 0.01)  IPLACE— 2 
CALL  REALNO(iVAL, IPLACE, 8.4, 7.1) 

CALL  XNAME(‘TIME  (PICO-SECONDS)S' . 100) 

IF(KSRF. EQ. 2 .OR.KSRF. EQ.4.0R . KSRF. EQ. 6. OR. KSRF . EQ.8)  THEN 
CALL  YNONUM 
CALL  YTICKS(0) 

VORIG-YFORIG 

VSTP-YFSTP 

VMAX-YFMAX 

ELSE 

CALL  YNAME  ( ‘ Y-DIMENSION  (CM)$’,100) 

VORIG-YORIG 

VSTP-YSTP 

VMAX-YMAX 


C 

C  -  AXIS  LINE  AND  TICKMARKS  ON  THE  RIGHT  IN  NO-FFT  PLOTS 
NTIK-NINT( (VMAX-VORIG)/VSTP) 
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1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 
1988 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 
1918 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 
1928 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 
1938 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 
1948 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 
1958 

1951 

1952 


XDUMf  1 )-TMAX-( TMAX-TOR I G ) /58 . 8 

X0UM(2)-TMAX 

YDM-VORIG 

00  225  ITK-1 .NTIK-1 
YDM-YDM+VSTP 
YDUMf 1 )-YDM 
YDUM(2)-YDM 

CALL  CURVE ( XOUM , YDUM ,2,8) 

225  CONTINUE 
ENOIF 

CALL  GRAF ( TOR IG.TSTP, TMAX , VOR I G , VSTP . VMAX ) 


226 


-  COMPLETE  COORDINATE  FRAME  AND  TICKMARKS 
NT I K-N I NT ( ( TMAX-TOR I G ) /TSTP ) 
YDUM(1)-VMAX 

YDUM ( 2 ) -VMAX- ( VMA  X- VOR I G ) /58 . 8 
XDM-TMAX 

DO  226  ITK-1. NTIK-1 
XDM-XDM-TSTP 
XDUMfl )— XDM 
XDUMC2 l-XDM 

CA L  L  CURVE ( XDUM . Y DUM . 2 . 8) 

CONTINUE 
XOUMfl )-TORIG 
XDUM ( 2 )— TMAX 
YDUMf 1 1-VMAX 
YDUM(2)-VMAX 

CALL  CURVE ( XDUM . YDUM ,2,8) 

XDUMfl )-TMAX 
XDUM (2)— TMAX 
YDUMf 1 )— VMAX 
YDUM(2j-V0RIC 
CALL  CUR VEf XDUM , YDUM ,2,8) 


XDUMf 
XDUU12 
YDUMf 1 
YDUMf 


-TORIG 

-TORIG 

-VMAX 

-VORIG 


CALL  CURVE(XDUM, YDUM, 2,0) 
C 

C  -  PREPARE  CONTOUR  FINOING 
CALL  BC0M0Nf258ee) 

CALL  CONANG(90.8) 

CALL  PSPLIN 


C 

C  -  DRAW  HALF-HEIGHT  CONTOUR  WITH  LINE  TYPE  SPECIFIED  IN 
C  SUBROUTINE  MYCON 

I F( ISHM. EQ. 1 .OR. ISHM. EQ.-1 )  THEN 
ZPLANE-0. 1 »ZMAX 
Z I NCR-8. 8*ZP LANE 
IF  (ISHM.EQ.-1)  THEN 

ZINCR-ZINCR«(1 .8-1 .0E-5) 

ELSE 

ZINCR-ZINCR*(1 .0+1 . 0E-5) 

ENOIF 

CALL  ZBASE(ZPLANE) 

CALL  CONMAK f SR F , NTP , NYP , Z I NCR ) 

CALL  CONLINf 0 , ’MYCON’ , ’NOLABELS* , 1 ,5) 

CALL  CONTURfl , ’NOLABELS’ , ’DRAW’) 

ZPLANE-0. 5«ZMAX 
ZINC R—ZP LANE 
IF  fISHM.EQ.-1)  THEN 

ZINCR-ZINCR*(1 .8-1 .0E-5) 
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1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 
1965 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 


ZINCR-ZINCR*(1 .0+1 . 0E— 5) 

END  IF 

CALL  ZBASE(ZPLANE) 

CALL  CONMAKfSRF , NTP , NYP , Z1NCR) 

CALL  CONL1NI0 , 'MYCON' . 'NOLABELS' .1.5) 

CALL  C0NTUR(1 . 'NOLABELS' . 'DRAW') 

END  IF 
C 

C  -  REPLACE  ALL  DATA  SMALLER  THAN  THE  CUTOFF  ZBOT  BY  ZBOT 
C  TO  ELIMINATE  UNDESIRED  LOGARITHMIC  CONTOURS 
DO  230  I 2-1. NYP 
DO  230  13-1. NTP 

SRF( 13, I2)-MAX(ZB0T ,SRF( 13.12)) 

C 

C  -  REPLACE  ALL  DATA  BY  THEIR  DECADIC  LOGARITHM  FOR  LOGARITHMIC  INCREMENTS 
C  BETWEEN  CONTOURS 

SRF( 13 , I2)-ALOG10(SRF( 13 , 12) ) 

230  CONTINUE 
C 

C  -  COMPUTE  ANO  DRAW  A  SOLID  CONTOUR  LINE  EVERY  INTEGER  STARTING  AT  ZERO 
ZP LANE-0 . 0 
CALL  ZBASE(ZPLANE) 

CALL  CONLIN(0, 'SOLID' .LABL.2,8) 

CALL  CONMAK(SRF,NTP,NYP. 1 .0) 

CALL  C0NTUR(1 .LAB L. 'DRAW') 

C 

C  -  COMPUTE  ANO  DRAW  A  DASHED  CONTOUR  LINE  EVERY  INTEGER  STARTING  AT  EVERY 
C  LOGARITHM  OF  THE  ELEMENTS  OF  THE  VECTOR  LEVEL 
CALL  CONLIN(0 , 'DASH* . 'NOLABELS' . 1 .3) 

DO  240  LV-1.ILN 

ZPLANE-AL0G1 0<  FLOAT ( LEVE  L( LV) ) ) 

CALL  ZBASE(ZPLANE) 

CALL  CONMAK (SRF . NTP . NYP . 1 . 0) 

CALL  C0NTUR(1 , 'NOLABELS' , 'DRAW ) 

240  CONTINUE 
C 

C  -  SPECIAL  AXIS  ANO  LABEL  FOR  FFT  COORDINATE 

IF  ( ( KSRF . EQ . 2 . OR . KSRF . EQ . 4 . OR . KSRF . EQ . 6 . OR . KSRF . EQ . 8) 

1  . AND.NY.GT.8)  CALL  XISFFT( *Y* .TORIG.TMAX) 

CALL  ENDPL(0) 

RETURN 

END 

c 

c 

c 

SUBROUTINE  MYCON( DUMMY. I DUMMY) 

C 

C  Th i ■  subroutine  mokes  o  customized  dotted  contourline  os  described 
C  in  the  DISSPLA  manual. 

DIMENSION  RATRAY ( 2 ) 

TLENG-0. 14 
NMRKSP— 2 

RATRAY( 1 )-1 .0/6.0 
RATRAY(2)-5. 0/0.0 
CALL  MRSCOD(TLENC. NMRKSP. RATRAY) 

RETURN 

END 
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2017  SUBROUTINE  X I SFFT (OORD . YMNDMY , YMXDMY ) 

2018  c 

2019  C  This  subroutine  calculates  the  values  for  the  call  x/y-graxs  which 

2020  C  labels  the  axle  of  the  FFT-varlable. 

2021  c 

2022  C 

2023  C 

2024  C 

2025  C 

2026  C 

2027  C 

2028  C 

2029  C 

2030  C 

2031  C 

2032  C 

2033  C 

2034  C 

2035  C 
2038  C 

2037  C 

2038  C 

2039  C 

2040  C 

2041  c 

2042 

2043  C 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051  C 

2052  C  -  NO  FFT-AXIS  IN  ONE-DIMENSIONAL  TRANSIENT  CASE 

2053  IF  (NY.LE.8)  THEN 

2054  WRITE  (59, •)  *NO  FFT-AXIS  WHEN  NY.LE.B’ 

2055  RETURN 

2056  END IF 

2057  C 

2058  C  -  WARNING  NOT  ONE  INTERVAL  FITS  BETWEEN  EXTREMA 

2059  IF  (WFORIG+WFSTP.GE.WFMAX)  WRITE  (59. •)  ’AXIS  ON  FFT  PLOTS  WRONG’ 

2060  C 

2061  C  -  COMPUTE  AXIS  LENGTH  AND  ORIGIN 

2062  UDIFF-YFMAX-YFORIG 

2063  ULNTH-GRFSZ*(WFMAX-WFORIG)/UDIFF 

2064  uaxor-grfsz*(wforig-yforig)/udiff 

2065  VAXOR-0.0 

2066  ORD-’Y’ 

2067  IF  (OORD.EQ.ORD)  THEN 

2068  C 

2069  C  -  Y-AXIS  (IN  CONTOUR  PLOTS) 

2070  C 

2071  C  -  YAXIS  TICKMARKS  ON  THE  RIGHT 

2072  NT I K-N I  NT ( (WFMAX-WFOR I 0)/WFSTP) 

2073  XDUM(1 )«TMAX-(TMAX-TORIG)/50.0 

2074  XDUM(2)-TMAX 

2075  YDM-WFORIG-WFSTP 

2078  DO  250  ITK-1.NTIK+1 

2077  YDM-YDM+WFSTP 

2078  YDUM( 1 )-YDM 

2079  YDUM(2)-YDM 


grfsz  -  physical  size  of  graphics  plots 

tisax  -  value  at  end  of  tine  axis 

torig  -  value  at  beginning  of  tine  oxis 

tstp  -  tine  axis  interval 

wfnax  -  nice  spatial  FFT  axis  end  value 

wforig  -  nice  spatial  FFT  axis  beginning  value 

wfstp  -  nice  spatial  FFT  axis  Interval 

yfnax  -  value  at  end  of  spatial  FFT  axis 

yforig  -  value  at  beginning  of  spatial  FFT  axis 

yfstp  *  spatial  FFT  axis  interval 

ynax  -  value  at  end  of  troneverse  spatial  axis 

yorig  -  value  at  beginning  of  transverse  spatial  axis 

ystp  -  transverse  spatial  axis  interval 

uaxor  -  x-  or  y-distance  of  secondary  axis  fron  physical  origin 
udiff  -  difference  of  original  axis  end  values 
ulnth  -  length  of  customized  oxis  in  inches 

vaxor  -  x-  or  y-distance  of  secondary  axis  form  physical  origin 
xdum  -  dummy  variable  holding  the  x-coordinate  of  two  points 
ydum  ■  dummy  variable  holding  the  y-coordinate  of  two  points 

PARAMETER  (NT-256. NTP-NT+1 . NX-8. NY-1 28. NYP-NY+1 ) 

IMPLICIT  COMP I PV ( A-F 

DIMENSION  ISRF(8) , ITYPE(B) . LEVEL(8) ,CSEC(19,NX) ,RTYPE(8) . 

1  SRF(NTP , NYP) . SRFI (NTP . NYP) . XDUM(2) , Y0UM(2) 

COMMON  /GRAPHS/  ILN, ISHM, ISRF, ITYPE, LEVEL. NOEC.NHYP, NSEC, CSEC , 

1  GRFSZ, PI , RTYPE .SRF.SRFI , TMAX .TORIG. TSTP . YFMAX .YFORIG. 

2  YFSTP. YMAX .YORIG. YSTP . WFMAX . WFOR I G . WFSTP , ZBOT . ZMAX . ZSTEP . 

3  ZVAL 
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2086 

2081 

2082 

2083 

2084 

2085 
2088 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 


C 

C 


C 

C 


C 

C 


C 

C 


c 

c 

c 

c 

c 

C 

C 

C 

c 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


CALL  CURVE(XDUM,  YDUM,  2 , 0) 

250  CONTINUE 

CALL  R ES ET ( 1 YNONUM ' ) 

CALL  RESET? ’ YTICKS’ ) 

CALL  YGRAXS (NFOR IG .NFSTP . NFMAX . ULNTH . 

1  ’INVERSE  NAVE  LENGTH  ( 1/CM)$’ , 100.VAXOR.UAXOR) 

ELSE 

NRITE  (59 , •) * A  FFT ’ 

-  X-AXIS  (IN  CROSS  SECTIONAL  PLOTS) 

CALL  RESET (’XNONUM’) 

CALL  RESET? ’XTICKS’) 


-  DRAN  LINE  FOR  AXIS 
XDUM(1)«YFORIG 
XDUM(2)-YFMAX 
YDUM? 1 J-YUNDMY 
YDUM  ?  2 ) «YMNDMY 
CALL  CURVE(XDUM. YDUM. 2,0) 
NRITE  ?59,*)’B  FFT’ 


-  YAXIS  TICKMARKS  ON  THE  RIGHT 

NT I K-N I NT ( (NFMAX-NFOR I G)/NFSTP ) 
NRITE  (59 , *) ’C  FFT’ 

YDUM( 1 J-YMXDMY-( YMXDMY-YMNDMY)/50 . 0 

YDUM  ?  2 ) ■ YMXOMY 

XOU-NFORIG-NFSTP 

DO  255  ITK-1.NTIK+1 

XDM-XDM+NFSTP 

XDUM(1)-XDM 

XDUM(2)-X0M 

CALL  CURVE?XDUM. YDUM. 2.0) 

2SS  CONTINUE 

NRITE  (59 . *) ‘D  FFT’ 


-  ORAN  CUSTOMIZED  TICK  MARKS 

CALL  XGRAXS ( NFOR IG.NFSTP, NFMAX .ULNTH, 

1  ’INVERSE  NAVE  LENGTH  ( 1/CM)$’ , 100.UAXOR.VAXOR) 

END  IF 
RETURN 
END 


SUBROUTINE  CRSSCT(MSRF) 

This  subroutine  was  written  by  Godehard  Hilfsr  (3/87).  It  generates 
cross  sectional  plots  of  the  data  in  the  two  dimensional  array(s) 
srf  (srf I ) . 

Three  types  of  cross  sectional  plots  ore  available:  intensity  plots 

!  following  statement  label  300),  phase  plots,  and  amplitude  plots 
both  following  statement  label  400).  Nhen  intensity  cross  sections 
are  called  for,  this  subroutine  executes  do— loop  390  that  does  all 
cross  sections  specified  in  row  msrf  of  array  cseC  and  thereafter 
returns  control  to  the  main  progrom.  Nhen  phase  or  amplltue  cross 
sections  are  called  for,  this  subroutine  executes  do— loop  496  which 
generates  all  phase  sections  specified  in  row  msrf  of  array  csec. 
Immediately  afterwards  do-loop  590  is  executed  which  generates  all 
amplitude  cross  sections  that  are  specified  in  row  msrf+1  of  arroy 
csec.  After  this  control  is  returned  to  the  main  program. 
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2143  C  Each  type  of  cross  sections  Is  prepared  in  a  similar  fashion.  In 

2144  C  the  case  of  one  dimensional  data  (ny  or  nt  less  than  9)  only  one 

2145  C  argument  of  the  arrays  srf  and  srfi  Is  an  independent  variable 

2146  C  the  other  argument  serves  as  a  label  to  allow  distinction  between 

2147  C  up  to  eight  one  dimensional  data  sets.  Which  one  of  these  eight 

2148  C  data  sets  is  to  be  graphed  Is  determined  by  the  value  of  the  real 

2149  C  part  of  the  element  of  cseC  under  consideration  (the  imaginary 

2150  C  part  is  meaningless  in  these  cases).  When  nt  and  ny  are  larger  than 

2151  C  8  srf  and  srfl  contain  one  two-dimensional  data  set.  a  surface. 

2152  C  Which  of  the  two  free  variables  is  to  be  held  constant  for 

2153  C  cross  sectional  plots  is  determined  by  the  Imaginary  part  of  the 

2154  C  element  of  cseC  under  consideration.  Therefore,  In  2-d  cases 

2155  C  the  imaginary  part  of  the  current  element  of  cseC  Is  tested.  If  It 

2156  C  is  2.0  a  horizontal  cross  section  (second  variable  of  array(s)  srf 

2157  C  (srfi)  fixed)  follows.  If  it  Is  1.0  a  vertical  cross  section  (first 

2158  C  variable  of  array(s)  srf  (srfi)  fixed)  follows,  otherwise  the  next 

2159  C  element  of  cseC  will  be  considered  in  the  same  way.  For  the  present 

2160  C  graph  the  headline  and  axis  labels  are  written  onto  a  new  graphics 

2161  C  frame,  the  curve  data  are  computed,  the  coordinate  system  is  drawn 

2162  C  and  finally  the  cross  sectional  curve  itself.  If  the  plot  displays 

2163  C  FFT  data  the  drawing  of  the  FFT-axis  that  would  be  drawn  by  the  call 

2164  C  graf  will  be  suppressed  in  order  to  avoid  the  tick  mark  labels  at  the 

2165  C  very  end  of  this  axis  which  would  exhibit  meesy  numbers.  In  the 

2166  C  place  of  the  suppressed  axis  a  'secondary*  (DISSPLA  nomenclature) 

2167  C  axis  will  be  drawn  immediately  after  the  cross  sectional  curve 

2168  C  is  drawn.  This  secondary  axis  exhibits  'nicely'  valued  tick  marks. 

2169  c 

2170  C  ihe  cross  sectional  curves  represent  the  functional  values  at  the 

2171  C  grid  point  iseC  that  is  clossest  to  the  locations  specified  by  the 

2172  C  real  part  of  the  current  element  of  csec.  While  the  data  of  the 

2173  C  intensity  and  amplitude  plots  are  readily  available  from  the 

2174  C  array(s)  srf  (srfi)  the  data  for  the  phase  sections  have  to  be 

2175  C  calculated  first  by  this  subroutine. 

2176  c 

2177  C  The  phase  data  are  calculated  as  follows.  The  field  magnitude  at  the 

2178  C  fixed  grid  point  iseC  is  computed.  If  its  maximum  is  less  than 

2179  C  10*»(-30)  the  field  information  is  determined  unreliable  and  no 

2180  C  phase  curve  will  be  drawn.  Furthermore  all  locations  where  the 

2181  C  magnitude  is  lees  than  the  maximum  magnitude  divided  by  10**8  are 

2182  C  determined  as  points  of  unreliable  field  Information  and  will 

2183  C  exhibit  no  phase  curve  point.  The  arctangent  of  the  ratio  of  the 

2184  C  imaginary  to  real  field  amplitudes  provides  the  raw  phase  data.  It 

2185  C  is  assumed  that  the  numerical  resolution  of  RAM2D1  is  sufficient  to 

2186  C  provide  raw  phase  data  that  do  not  vary  by  more  than  +/-  pi  from 

2187  C  grid  point  to  grid  point.  The  first  raw  data  point  falls  within 

2188  C  +/-  pi  of  zero  phase.  All  consecutive  row  data  points  ore  tested  if 

2189  C  they  were  reached  by  a  phase  change  thot  implies  a  crossing  of  the 

2190  C  negative  real  axis  of  the  amplitude  vector  In  which  case  2  pi  will 

2191  C  be  added  or  subtracted  to  all  following  phase  points  depending  on  an 

2192  C  implied  phase  windup  or  wind— down.  By  this  method  phase  variations 

2193  C  over  multiples  of  2  pi  con  be  followed.  In  case  of  i nterml ttened 

2194  C  unreliable  data  points  the  next  reliable  phase  is  placed  within  the 

2195  C  same  2  pi  interval  as  the  previous  reliable  phase. 

2196  c 

2197  C  — variables — 


2198  c 

2199  C  cseC  ■  2-dim  array  with  cross  sectional  information 

2200  C  grfsz  “  physical  size  of  graphics  plots 

2201  C  IseC  “  srf(i)  grid  point  corresponds  clossest  to  real  port  of 

2202  C  csec 

2203  C  k  ■  index  in  do- 1  oops  390,490,590 

2204  C  kl  -  indsx  in  do-loops  328,375.410.460.510,520,555,560 

2205  C  k2  -  index  In  do-loops  330,380,411,465,530,565 
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2206  C  kj  ■  Index  in  do— loop*  423.473 

2207  C  k4  ■  index  In  do-loop*  429,475 

2208  C  kent  -  index  when  calculating  and  plotting  pha*e  dota 

2209  C  Ipl  "  multiple*  of  2  pi  counter 

2210  C  m*rf  -  Index  number  of  surface  of  which  cron  sections  ore  drown 

2211  C  nab  index  of  the  first  of  o  string  of  reliable  phase  data 

2212  C  points 

2213  C  non  «■  index  of  the  last  of  a  string  of  retaible  phase  data  points 

2214  C  necveC  ■  data  switch  for  subroutine  nyexis 

2215  C  npoints  -  number  of  data  points  to  be  drawn 

2216  C  nseC  »  number  of  elements  tested  In  rows  of  csec 

2217  C  nsrf  -  index  number  of  amplitude  surface  of  which  cross  sections 

2218  C  are  drawn 

2219  C  n  t  “  see  RAM201 

2220  C  ntp  -  nt+1 

2221  C  ny  •  see  RAM2D1 

2222  C  nyhp  -  ny/2+1 

2223  C  nyp  -  ny+1 

2224  C  phasdf  -  test  variable  deciding  phase  axis  interval 

2225  C  phasmx  -  phase  axis  end  value 

2226  C  phasor  -  phase  axis  beginning  value 

2227  C  phastp  -  phase  axis  interval 

2228  C  phsmxi  -  integer  clossest  to  phasmx 

2229  C  phsori  -  integer  clossest  to  phsori 

2230  C  pi  -  3.14159265358979 

2231  C  psik  -  phase  being  tested  for  2  pi  Interval 

2232  C  pslp  -  previous  phase  referencing  in  2  pi  interval  test 

2233  C  rdt  -  step  size  in  time 

2234  C  rdy  “  step  size  in  transverse  spatial  variable  y 

2235  C  rdyx  -  grid  point  spacing  an  horizontal  axis 

2236  C  semesi  -  array  containing  initial  longitudinal  invariant  data 

2237  C  sctold  -  last  reliable  phase  before  unreliable  phase  data 

2238  C  seci  -  imaginary  part  of  current  cseC  element 

2239  C  seer  «  real  part  of  current  cseC  element 

2240  C  sect!  -  vector  containing  phase  data  or  imaginary  amplitude  data 

2241  C  sectn  -  vector  containing  Intensity  data,  magnitude  data,  or  real 

2242  C  amplitude  dato 

2243  C  srf  ••  source  data  array  from  main  program 

2244  C  srfi  -  source  data  array  from  main  program  (imaginary  part) 

2245  C  tml  -  time  coordinate  lower  limit 

2246  C  tm2  -  time  coordinate  upper  limit 

2247  C  tmox  -  value  at  end  of  time  axis 

2248  C  torig  *  value  at  beginning  of  time  axis 

2249  C  tstp  «  time  axis  interval 

2250  C  wfmax  -  nice  spatial  "FT  axis  end  value 

2251  C  wforig  -  nice  spatial  FFT  axis  beginning  value 

2252  C  wfstp  ■  nice  spatial  FFT  axis  interval 

2253  C  wmax  ■  nice  vertical  axis  end  value 

2254  C  worlg  -  nice  vertical  axis  beginning  value 

2255  C  wstp  -  nice  vertical  axis  Interval 

2256  C  yfmax  -  value  at  end  of  spatial  FFT  axis 

2257  C  yforig  -  value  at  beginning  of  spatial  FFT  axis 

2258  C  yfstp  -  spatial  FFT  axis  interval 

2259  C  ymax  -  value  at  end  of  transverse  spatial  axis 

2260  C  yorig  -  value  at  beginning  of  transverse  spatial  axis 

2261  C  ystp  ■  transverse  spatial  axis  interval 

2262  C  xl  ■  imaginary  amplitude  value 

2263  C  xmx  -  section  maximum 

2264  C  x r  •  real  amplitude  value 

2265  C  xthrsh  -  fraction  of  intensity  below  which  data  are  considered 

2266  C  unreliable 

2267  C  kx  ■  vector  containing  physical  x— axis  values  for  plotting 

2268  C  xdum  -  dummy  variable  holding  the  x-coordinate  of  two  points 
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C 

C 

C 

C 

C 


y dun  -  dummy  variable  holding  the  y-ccordlnot*  of  t»o  point* 

yml  -  y-coordlnat*  lower  limit 

yi»2  -  y-coordinat*  upper  limit 

y»2m1  -  ym2-yn1 

zval  -  current  z-location 

PARAMETER  (NP-10. NT-256. NTP-NT+1 . NX-8 . NY-1 28 , NYH-NY/2 . NYHP-NYH+1 

1  NYP-NY+1 .NTPY-NT+NY) 

IMPLICIT  COMP LEX (A-E.O) 

DIMENSION  ISRF(8) . ITYPE(8) , IWHEN(NYHP) . LEVEL(8) ,CSEC( 1 9 . NX) . 

1  PSMEM(NTPY.B) . PPMEM(NTPY . 8) . RTYPE(8) . SCMEMfNTPY , 8) . 

2  SECT I (NTPY) , SECTJ (NTPY) .SECTN(NTPY) .SRF(NTP.NYP) , 

3  SRFI(NTP.NYP) . TIK(NY) ,XDUM(2) .XX(NTPY) . YDUM(2) 

COMMON  /GRAPHS/  I LN , ISHM . ISRF  ITYPE, LEVEL. NOEC.NHYP, NSEC. CSEC. 

1  GRFSZ.PI .RTYPE.SRF.SRFI .TMAX.TORIG.TSTP.YFMAX.YFORIG. 

2  YFSTP, YMAX , YORIG , YSTP , WFMAX . WFORIG . WFSTP . ZBOT . ZMAX . ZSTEP . 

3  ZVAL 

COMMON  /NUM/  RDT , RDY , RDYF , TM1 , TM2, YM1 , YM2.YM2M1 

COMMON  WORK (2 5000) 


C  -  ERROR  CONDITIONS 

IF  (MSRF.LT.1 .OR.MSRF.GT.19)  THEN 
WRITE  (59. •)  *MSRF  -  ’ .MSI 
RETURN 
END  IF 


RF.’  IN  CRSSCT  OUT  OF  RANGE' 


IF  (NY.LE.8)  THEN 

GO  TO  (290.290.290.  280.280.280.  290.290.290. 

1  280.280,280,  290.290.290.  280.280.280.  290)  MSRF 

280  RETURN 

290  CONTINUE 

END  IF 

GO  TO  (300.400.400,  300,460,400,  360,400.400, 

1  300.400,400.  300.400.400.  300.400,400,  300)  MSRF 

300  CONTINUE 
C 

C  -  CROSS  SECTIONS  OF  INTENSITY  SURFACES  OR  MATERIAL  EXCITATION 

C 

C  —  CHECK  EACH  ELEMENT  IN  ROW  MSRF  OF  ARRAY  CSEC 
DO  390  K-1.NSEC 
SECR-REAL(CSEC(MSRF.K)) 

c 

C  -  ONE-DIMENSIONAL  CASES 
IF  (NY.LE.8)  THEN 

IF  (SECR.LT.0.5.OR.SECR.GT.8.5)  GO  TO  390 
GO  TO  310 

ELSE  IF  (NT.LE.8)  THEN 

IF  (SECR.LT.0.5.OR.SECR.GT.8.5)  GO  TO  390 
GO  TO  340 
END  IF 
C 

C  -  TWO  DIMENSIONAL  CASES;  SECTION  ONLY  IF  IMAGINARY  PART  OF  CSEC- 
C  ELEMENT  IS  EQUAL  TO  1.0  OR  2.0; 

C  OTHERWISE  GO  TO  NEXT  LOOP  COUNTER  K.  I.E.  NEXT  ELEMENT  OF  LINE  MSRF 
C  IN  ARRAY  CSEC 

SEC I -A I MAG (CSEC (MSRF, K) ) 

IF  (SECI.GT. 0.9. AND.SECI.LT. 1.1)  GO  TO  340 
IF  (SECI.GT.1 .9.AND.SECI .LT.2.1)  GO  TO  310 
GO  TO  390 
310  CONTINUE 
C 
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C  —  HORIZONTAL  CROSS  SECTION  (SECOND  ARGUMENT  OF  SRF  FIXED);  INTENSITY 
C 

C  -  START  A  NEW  GRAPHICS  FRAME  FOR  THIS  CROSS  SECTION 
CALL  RESET ( ’ ALL ’ ) 

CALL  AR£A2D(GRFSZ.GRFSZ) 

CALL  INTAXS 
C 

C  -  HEADLINE.  LABELS.  AND  PARAMETER 

GO  TO  (311.390.390.  312,390,390.  313.390,390, 

1  314.390,390.  315,390.390.  316.390,390,  317)  MSRF 

311  CALL  HEADIN( ’RAMAN  PUMP:  INTENSITY$’ .100.1 .5,1) 

GO  TO  321 

312  CALL  HEADIN( 'RAMAN  PUMP:  MODE  INTENSITY)’ , 100, 1  .5. 1 ) 

GO  TO  321 

313  CALL  HEADIN( ’RAMAN  STOKES:  INTENSITY)’ . 100. 1 .5. 1 ) 

GO  TO  321 

314  CALL  HEADIN( 'RAMAN  STOKES:  MODE  INTENSITY)’ ,100,1 .5,1) 

GO  TO  321 

315  CALL  HEADIN( 'RAMAN  MAT.  EXC . :  INTENSITY)’ , 1 00 , 1 . 5 . 1 ) 

GO  TO  321 

316  CALL  HEA01N( ’RAMAN  MAT.  EXC.:  MODE  INTENSITY)’ , 100, 1 .5, 1 ) 

GO  TO  321 

317  CALL  HEAOIN( ‘RAMAN  AMPLIFIER  Z- INVARIANT) ’ ,100,1 .5,1) 

321  CONTINUE 

CALL  MESSAGCZ  -  )’ .  100,5 . 9 .7. 1 ) 

IPLACE-2 

IF  (ABS(ZVAL). GT. 9999.0. OR. ABS(ZVAL) . LT. 0.01)  IPLACE— 2 
CALL  REALNO(ZVAL. IPLACE, 6. 4,7.1) 

CALL  XNAME( ‘TIME  (P ICO-SECONDS)) ’ . 100) 

IF  (MSRF. EQ. 4. OR. MSRF. EQ. 10. OR. MSRF. EO. 16)  THEN 
CALL  YNAME(’ INTENSITY  IN  MODE  KY)',100) 

CALL  MESSAG(’KY  -  ) ’ . 1 00 , 4. 2 . 7 . 1 ) 

IPLACE-2 

IF  (ABS(SECR).GT. 9999.0. OR. ABS(SECR) . LT. 0.01)  IPLACE— 2 
CALL  REALNO(SECR. I PLACE, 4 . 7,7.1) 

CALL  MESSAGi ’ 2  -  DIM .)’, 100 .5.9 . 7.35) 

I S  EC- 1 NT ( ( S  ECR+N YHP/YM2M 1 ) *YM2M1 ) 

ELSE 

IF  (MSRF. EQ. 19.)  THEN 

CALL  YNAWEC LONGITUDINAL  INVARIANT)’ , 100) 

IF  (ZVAL.GT.ZSTEP)  THEN 

CALL  MESSAG( ’DASHED  -  INVARIANT  AT  Z-0$ ’ , 100 . 0 . 1 , 7 . 35) 
ENOIF 
ELSE 

CALL  YNAMEC INTENSITY)’ .130) 

ENOIF 

IF  (NY.LE.8)  THEN 
ISEC-NINT (SECR) 

GO  TO  (322,323,324,325)  ITYPE(ISEC) 

322  CALL  MESSAG( ’SEC-HYPER8.  .  EXP  -  )’ .100,0. 1 ,7. 1 ) 

GO  TO  326 

323  CALL  MESSAGC RECTANGULAR) ’.100, 0.1, 7.1) 

GO  TO  320 

324  CALL  MESSAGC LOR ENTZ I AN  .  EXP  -  $’.100.0.1.7.1) 

GO  TO  320 

325  CALL  MESSAG( ’EXPONENTIAL  .  EXP  -  )’ .  100,0. 1 .7. 1 ) 

320  CONTINUE 

IF  ( I TYPE ( I SEC) . NE . 2)  THEN 
XRTYPE-RTYPE(ISEC) 

IPLACE-2 

I F  ( ABS (XRTYPE) . GT . 9999 . 0 . OR . ABS(XRTYPE) . LT . 0 . 01 ) 

1  IPLACE— 2 

CALL  REALNO(XRTYPE , IPLACE, 2 .4,7.1) 
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END  IF 

IF  (NY.GT.1)  THEN 

CALL  MESSAG( 'CASES' .100,4.0,7.1) 

CALL  INTNO( ISEC , 4 . 7 , 7 . 1 ) 

END  IF 

CALL  MESSAG( ’ 1  -  D  TRA. $  * . 1 00, 5 . 9 . 7 . 35 ) 

ELSE 

CALL  UESSAG(*Y  -  S' . 100.4.2,7. 1 ) 

I PLACE-2 

IF  (ABS(SECR) .GT. 9999.0. OR. ABS(SECR) . LT . 0.01)  IPLACE— 
CALL  REALNO(SECR , IPLACE, 4. 7 ,7.1) 

CALL  MESSAGE ' 2  -  DIM. $' .100,5.9,7.35) 

I S  EC- 1 NT ( ( S  ECR+RDY • NYHP )/RDY ) 

END  IF 
END  IF 


C  -  CROSS  SECTION  DATA 
DO  327  K1-1 .NT 
S£CTN(K1 )-SRF(K1 , ISEC) 
XX (K1 )-TM1+RDT»(K1-1 ) 
327  CONTINUE 


C 


C  -  TOTAL  INTENSITY  INTEGRAL  IN  1-D 
IF  (NY.LE.8)  THEN 
TOT  1-0.0 
DO  329  K1-1.NT 
TOTI-TOTI+SECTN(K1 ) 

329  CONTINUE 

TOTI-TOTI*RDT 
IF  (ZVAL.LT.2STEP)  THEN 
C 

C  -  INTEGRAL  VALUE  ONTO  GRAPH  WHEN  Z-0 

IF  (MSRF . EQ. 1 .AND. TOT I .GT.0 .0)  THEN 
TTPSTO-TOTI 

CALL  MESSAGC INTEGRAL-  $*,100,0.1,6.7) 

IPLACE-4 

IF  (TOTI.GT. 9999.0. OR.TOTI.LT. 0.01)  IPLACE— 2 
CALL  REALNO(TOTI. IPLACE, 1 .4,6.7) 

ENOIF 

IF  (MSRF. EQ. 7. AND. TOTI.GT. 0.0)  THEN 
TTSSTO-TOTI 

CALL  MESSAGC INTEGRAL-  $*.160.0.1 .6.7) 

IPLACE-4 

IF  (TOTI.GT. 9999.0. OR.TOTI.LT. 0.01)  IPLACE— 2 
CALL  REALNO(TOTI , IPLACE, 1 .4,0.7) 

ENOIF 

IF  (MSRF.EQ. 7)  TTSSTO-TOTI 
ELSE 
C 

C  -  DEPLETION/GAIN  VALUE  ONTO  GRAPH  WHEN  Z>0 

IF  (MSRF.EQ. 1 .ANO.TTPSTO.GT.0.0)  THEN 
R INTEC-TOT I/TTPSTO 

CALL  MESSAGC DEPLETION-  $*,100,0.1,6.7) 

IPLACE-4 

IF  (RINTEG.GT. 9999.0. OR. RINTEG.LT. 0.01)  IPLACE— 2 
CALL  REALNO(RINTEG. IPLACE, 1 .4,6.7) 

END  IF 

IF  (MSRF.EQ. 7. AND. TTSSTO.GT. 0.0)  THEN 
RINTEG-TOTI/TTSSTO 
CALL  MESSAG(’GAIN-  $*, 100,0. 1 ,8.7) 

IPLACE-4 

IF  (RINTEG.GT. 9999.0. OR. RINTEG.LT. 0.01)  IPLACE— 2 
CALL  REALNO(RINTEG , I PLACE, 0.7, 6. 7) 
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END  IF 
END  IF 
ENOIF 
C 

C  -  MEMORIZE  INVARIANT  AT  Z-0 

IF  (MSRF. EQ. 19 . AND. ZVAL. LT . ZSTEP)  THEN 
DO  335  K1-1 .NT 
SCMEM(K1 .K)-SECTN(KI) 

335  CONTINUE 
END  IF 

C 

C  -  DRAW  COORDINATE  SYSTEM 
NECLEC-1 
WSTP— 1 .0 
WOR 16-0.0 

CALL  NYSXIS(SECTN.NT.NECLEC.WORIG.WSTP.WMAX) 
CALL  CRAF (  TOR IG , TSTP . TMAX . WOR I 0 . WSTP , WMAX) 

C 

C  -  COMPLETE  COORDINATE  FRAME  AND  TICKMARKS 
XDUM( 1 )-TORIC 
XDUM (2)— TMAX 
YDUMl 1 ) -WMAX 
Y0UM(2)— WMAX 

CALL  CURVE(XDUM, YDUM, 2,0) 

NTIK— NINT( ( TMAX— TOR IG)/TSTP) 

YDUMf 1 )— WMAX 

YDUM ( 2 ) -WMAX- ( WMAX-WOR IC)/S0.0 
XDM— TORIG 

DO  338  ITK-1.NTIK-1 
XDk^XDU+TSTP 
XDUM( 1 )— XOM 
XDUM! 2 )— XDM 

CALL  CURVE(XDUM. YDUM. 2,0) 

336  CONTINUE 
XDUM( 1 )— TMAX 
XDUM (2)— TMAX 
YDUMl 1 1— WMAX 
Y0UM(2)— WORIG 

CALL  CURVE (XDUM, YDUM. 2,0) 

NT I K-N I NT ( (WMAX-WOR IG )/WSTP ) 

XDUMf 1 )-TMAX-(TMAX-TORIG)/50 . 0 
XDUM(2 J-TMAX 
YDM-WOR I G 

DO  337  ITK— 1 .NTIK-1 
YDInHiYDM+WSTP 
Y0UM(1 )— YOM 
YDUM(2)-YDM 

CALL  CURVE ( XDUM , YDUM ,2,0) 

337  CONTINUE 
C 

C  -  DRAW  CROSS  SECTION  CURVE 
NPOINTS— NT 

CALL  CURVE(XX,SECTN, NPOINTS, 0) 

C 

C  -  DRAW  Z-0  INVARIANT  FOR  COMPARISON 

IF  (MSRF. EO. 19. AND. ZVAL. GT. ZSTEP)  THEN 
DO  338  K1-1.NT 
SECTN(K1 )>SCMEM(K1 ,K) 

338  CONTINUE 
CALL  DASH 

CALL  CURVE(XX,SECTN, NPOINTS, 0) 

CALL  RESET(-DASH*) 

ENOIF 
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C 

C  -  END  OF  PLOT 

CALL  ENDPL(8) 

GO  TO  398 
348  CONTINUE 
C 

C  —  VERTICAL  CROSS  SECTION  (  FIRST  VARIABLE  FIXED  IN  SRF) ;  INTENSITY 
C 

C  -  START  A  NEW  GRAPHICS  FRAME  FOR  THIS  CROSS  SECTION 
CALL  RESET ( ’ ALL’ ) 

CALL  AR£A2D(GRFSZ .GRFSZ) 

CALL  INTAXS 
C 

C  -  HEADLINE,  LABELS,  AND  PARAMETER 

GO  TO  (355,398,398,  356,398,398,  357,398,398, 

1  358,398.398.  359.398,398,  368,398,398,  361)  MSRF 

355  CALL  HEAD IN (’RAMAN  PUMP:  INTENSITY!’ .188, 1 .5.1) 

GO  TO  371 

356  CALL  HEADIN( 'RAMAN  PUMP:  INTENSITY  ( FFT )$', 188, 1.5,1) 

GO  TO  371 

357  CALL  HEADIN( ’RAMAN  STOKES:  INTENSITY!’ , 188, 1 .5, 1 ) 

GO  TO  371 

358  CALL  HEADIN( ’RAMAN  STOKES:  INTENSITY  (FFT)!’ , 188, 1 . 5. 1 ) 

GO  TO  371 

359  CALL  HEADIN( 'RAMAN  MAT.  EXC.:  INTENSITY! ’, 188, 1 .5. 1 ) 

GO  TO  371 

368  CALL  HEADIN( 'RAMAN  MAT.  EXC.:  INTENSITY  (FFT)!\188, 1 .5, 1 ) 

GO  TO  371 

361  CALL  HEADIN( 'RAMAN  LONGITUDINAL  INVARIANT!’ . 188, 1 .5. 1 ) 

371  CONTINUE 

CALL  MESSAGCZ  -  !*.  188.5.9,7 . 1) 

I PLACE-2 

IF  (ABS(ZVAL) .GT.9999 .B.OR. ABS(ZVAL) . LT. 8.81 )  IPLACE— 2 
CALL  REALNO(ZVAL, IPLACE, 6.4, 7 . 1 ) 

IF  (MSRF.EQ OR. MSRF.EQ. 18. OR. MSRF.EQ. 18)  THEN 
CALL  XNONUM 
CALL  XTICKS(8) 

CALL  YNAME(’FFT  INTENSITY! ’. 188) 

ROYX-RDYF 

XORIG-YFORIG 

XSTP-YFSTP 

XMAX-YFMAX 

ELSE 

CALL  XNAME( ’Y-DIMENSION  (CM)!’, 188) 

IF  (MSRF.EQ. 19.)  THEN 

CALL  YNAME(’ LONGITUDINAL  INVARIANT!’ , 188) 

IF  (ZVAL.GT.ZSTEP)  THEN 

CALL  MESSAG( 'DASHED  -  INVARIANT  AT  Z-8!’ ,188,8. 1 ,7.35) 
ENOIF 
ELSE 

CALL  YNAMEC INTENSITY!’ .188) 

ENOIF 

RDYX-RDY 

XORIG-YORIG 

XSTP-YSTP 

XMAX-YMAX 

ENOIF 

IF  (NT.LE.8)  THEN 
ISEONINT(SECR) 

CALL  MESSAG( ’ EXPON . ,  NHYP  -  !’ . 188,8. 1 , 7. 1 ) 

CALL  INTNOfNHYP , 2 . 8 , 7 . 1 ) 

CALL  MESSAG( ’ 1  -  D  STA.!’ . 188,5.9,7.35) 

IF  (NT.GT.1)  THEN 
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CALL  MESS AG ( 'CASES’ ,130, 4. 6,7.1) 

CALL  INTNO( IS EC, 4. 7, 7. 1) 

END  IF 
ELSE 
I  SEC- 
CALL 
I PLACE-2 

IF  (ABS(SECR) . GT . 9999 . 0. OP. ABS(SECR) . LT. 3.01 )  IPLACE< 
CALL  REALNO(SECR , I PLACE, 4. 7, 7. 1 ) 

CALL  MESSAG(a2  -  0IM.$’ , 100,5 . 9 . 7 . 35) 

END  IF 


t>  I NT ( ( SECR+R  DT • (NT/2+1 ) ) /ROT ) 
L  MESSAG( ' T  -  ) 1 . 1 00 . 4. 2 . 7 . 1 ) 


C 

C  -  CROSS  SECTION  DATA 
DO  373  K 1—1 .NY 
SECTN(K1 )-SRF(ISEC,K1) 

XX (K1 )-XORIG+RDYX*(K1— 1 ) 
373  CONTINUE 


C 

C  -  TOTAL  INTENSITY  INTEGRAL  IN  1-0 
IF  (NT.LE.8)  THEN 
TOT  1-0.0 
DO  374  K1-1 .NY 
TOTI-TOTI+SECTN(K1) 

374  CONTINUE 

TOTI-TOTI-RDY 
IF  (2VAL.LT. ZSTEP)  THEN 


C 

C  -  INTEGRAL  VALUE  ONTO  GRAPH  WHEN  Z-0 

IF  (MSRF. EQ. 1 .AND. TOT I .GT.0.0)  THEN 
TTPSTO-TOT I 

CALL  MESSAG( ‘ INTEGRAL-  $\  100,0. 1 ,6.7) 

IPLACE— 4 

IF  (TOTI. GT. 9999.0. OR. TOTI.LT. 0.01)  IPLACE— 2 
CALL  REALNO(TOTl , IPLACE, 1 .4,6.7) 

ENOIF 

IF  (MSRF. EQ. 7. AND. TOTI. GT.0.0)  THEN 
TTSSTO-TOT I 

CALL  MESSAGC INTEGRAL-  $’.100.0.1,6.7) 
IPLACE-4 

IF  (TOTI. GT. 9999.0. OR. TOTI.LT. 0.01)  IPLACE— 2 
CALL  REALNO(TOTI, IPLACE. 1.4, 0.7) 

END  IF 

IF  (MSRF.EQ.7)  TTSSTO-TOT I 
ELSE 


2 


C  -  DEPLETION/GAIN  VALUE  ONTO  GRAPH  WHEN  Z>0 

IF  (MSRF. EQ. 1 .AND. TTPSTO. GT.0.0)  THEN 
RINTEG-TOT I/TTPSTO 

CALL  MESSAGC DEPLETION-  $’.100,0.1,6.7) 

I  PUCE-4 

IF  (RINTEG.CT. 9999.0. OR. RINTEG.LT. 0.01)  IPLACE— 2 
CALL  REALNO(RINTEG,IPUCE,1  .4,8.7) 

ENOIF 

IF  (MSRF. EQ. 7. AND. TTSSTO. GT.0.0)  THEN 
RINTEG-TOT I/TTSSTO 
CALL  MESSAG( 'GAIN-  $’,100,0.1,6.7) 

IPLACE-4 

IF  (RINTEG.GT. 9999. 6. OR. RINTEG.LT. 0.01)  IPUCE— 2 
CALL  REALNO(RINTEG,  I  PUCE,  0.7, 6. 7) 

ENOIF 

ENOIF 

ENOIF 


C 
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C  -  MEMORIZE  INVARIANT  AT  Z-6 

IF  (MSRF. EQ. 19 .AND . ZVAL . LT .ZSTEP)  THEN 
DO  375  K1-1.NY 
SCMEM(K1 .K)-SECTN(KI) 

375  CONTINUE 
END  IF 

IF  (MSRF. EQ. 16)  THEN 
C 

C  -  COMPUTE  TOTAL  INTENSITY  OF  STOKES  BEAM  IN  K-SPACE 
TIK(1)-6.6 
DO  378  J-2.NY 

TIK(J)-TIK(J-1)+SECTN(J)*RDYF 

376  CONTINUE 
TIKBMX-TIK(NY) 

WHITE  (59,*) 'TlKBMX-  ’.TIKBMX 
CALL  MESSAG( 'TOT.  INT.  -  $’.166,6.2.6.7) 
IPLACE-2 

IF  (ABS(TIKBMX) .GT.9999.6.0R.ABS( 

CALL  REALNO(TIKBMX , 

WRITE  (59 ,  •)  ’ TOTAL 


‘.9999.6.0R. ABS(TIKBMX) . LT.6. 
t.IPLACE.1 .6.6.7) 

.  INTENSITY  OF  STOKES  IN  K-  ’ 


61)  IPLACE— 2 
, TIKBMX 


377 


C  -  COMPUTE  K-W1DTH  OF  STOKES  (LINEAR  INTERPOLATION) 

DO  377  J-1.NY 

TIK(j)-ABS((2.6*TIK(J)-TIKBMX)/TIKBMX)-2.6/PI 
CONTINUE 

CALL  WHENFLE(NY,TIK( 1 ) , 1 ,6.6, IWHEN.NVAL) 

IWN1-IWHEN(1)+JL-1 
IWN2-I WHEN ( NVAL)+J L— 1 
IF  (IWN2-IWN1 .LT.4)  THEN 

WRITE  (59, •)  ’INSUFFICIENT  RESOLUTION  FFT  BEAM 
END  IF 

WRITE  (59 . •) ' I WHEN  -  ' , I WHEN 

YKL-YFORIG+RDYF.nWN1+TIK(IWN1)/(TIK(IWN1-1)-TIK(IWNi: 
YKR-YFORIG+RDYF.(IWN2-TIK(IWN2)/(TIK(IWN2+1)-TIK(IWN2 
WOTHKB-YKR-YKL  1 

CALL  MESSACC  K  WIDTH  -  $’.166.4.2,8.7) 

IPLACE—2 

LT.6. 61)  IPLACE— 2 


’.IB 


c 

c  - 


c 

c  - 


I F  ( ABS(WDTHKB) . GT . 9999 . 6 . OR . ABS (WOTHKB ) . 
CALL  REALNO(WOiHKB , IPLACE, 5. 6, 6.7) 

ENOIF 

DRAW  COORDINATE  SYSTEM 
NECLEC-1 
WSTP— 1 .6 
WORIG-6.6 

CALL  NYSXIS(SECTN,NY,NECLEC .WORIG.WSTP , WMAX) 
CALL  GRAF ( XOR IC . XSTP . XMAX , WORIG , WSTP . WMAX) 

COMPLETE  COORDINATE  FRAME  AND  TICKMARKS 


XDUM 

XDUM 

YDUM 

YDUM 


1) -XORIG 

2)  -XMAX 
1 j-WMAX 
2)— WMAX 


CALL  CURVE(XDUM, YDUM, 2 ,6) 

IF  (NY. GT. 8. AND. (MSRF. EQ. 4. OR. MSRF. EQ. 16. OR. MSRF. EQ. 16))  GOTO  386 
NTIK-NINT( (XMAX-XORIG)/XSTP)  " 

YDUMf 1 )-WMAX 

YDUM(2)-WMAX-(WMAX-WORIG)/56. 6 
XDIt^XORIG 

DO  378  ITK-1.NTIK-1 
XDI**OM+XSTP 
XDUM( 1 )-XDM 
XDUM(2)-XDM 
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CALL  CURVE ( XOUM , YOUM ,2,0) 

378  CONTINUE 
380  CONTINUE 

XDUM( 1 )-XMAX 

XDUM(2)-XMAX 

YDUM(1)-WMAX 

YDUM(2)-WORIG 

CALL  CURVE! XOUM. YDUU, 2.0) 

NT I K-N I NT ( ( WMAX-WOR I G ) /WSTP ) 

XDUM ( 1 ) -XMAX- ( XMAX-XOR I G ) /5  0 . 0 

XDUM(2)-XMAX 

YDM-WORIG 

00  382  ITK-1.NTIK-1 
YDM-YDM+WSTP 
YDUM( 1 )-YDM 
YDUM(2)“YDM 

CALL  CURVE(XDUM,YDUM. 2.0) 

382  CONTINUE 
C 

C  -  DRAW  CROSS  SECTION  CURVE 
NPOINTS-NY 

CALL  CURVE(XX,SECTN,NPOINTS ,0) 

C 

C  -  DRAW  Z-0  INVARIANT  FOR  COMPARISON 

IF  (MSRF. EQ. 19 . AND. ZVAL.GT . ZSTEP)  THEM 
00  385  K1-1 .NY 
SECTN(K1)«SCMEM(K1 ,K) 

385  CONTINUE 
CALL  DASH 

CALL  CURVE(XX , SECTN.NPOINTS.0) 

CALL  RESET ( ' DASH* ) 

ENOIF 

C 

C  -  SPECIAL  AXIS  AND  LABEL  FOR  FFT  COORDINATE 

IF  (NY. GT. 8. AND. (MSRF. EQ.4. OR.MSRF. EO. 10. OR. MSRF. EO. 18)) 

1  CALL  XISFFT( ’ X ’ .WORIG.WMAX) 

WRITE  (59, •) 'END  OF  STATIONARY  INTENSITY  PLOT* 

C 

C  -  END  OF  PLOT 

CALL  ENOPL(0) 

390  CONTINUE 
RETURN 
C 

C  -  END  OF  INTENSITY  SECTION 

C 

400  CONTINUE 

C 

C  -  PHASE  AND  AMPLITUDE  SECTIONS 

C 

C  —  CHECK  EACH  ELEMENT  IN  ROW  MSRF  OF  ARRAY  CSEC 
DO  490  K-1.NSEC 
SECR-REAL(CSEC(MSRF,K) ) 

C 

C  -  ONE  DIMENSIONAL  CASES 
IF  (NY.LE.8)  THEN 

IF  (SECR . LT . 0 . 5 . OR . SECR . GT . 8 . 5)  GO  TO  490 
GO  TO  401 

ELSE  IF  (NT.LE.S)  THEN 

IF  (SECR. LT. 0.5. OR. SECR. GT. 8. 5)  GO  TO  490 
GO  TO  450 
ENOIF 
C 

C  -  TWO  DIMENSIONAL  CASES;  SECTION  ONLY  IF  IMAGINARY  PART  OF  CSEC- 
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C  ELEMENT  IS  EQUAL  TO  1.0  OR  2.0; 

C  OTHERWISE  GO  TO  NEXT  LOOP  COUNTER  K.  I.E.  NEXT  ELEMENT  OF  LINE  MSRF 
C  IN  ARRAY  CSEC 

S EC I “A I MAG (CS EC (MSRF , K) ) 

IF  (SEC I .GT .0. 9 . AND . SEC  I . LT. 1 . 1 )  GO  TO  450 
IF  (SECI.GT. 1.9. ANO.SECI.LT. 2.1)  GO  TO  401 
GO  TO  496 

401  CONTINUE 
C 

C  —  HORIZONTAL  CROSS  SECTION  (SECOND  ARGUMENT  OF  SRF  FIXED);  PHASE 
C 

C  -  START  A  NEW  GRAPHICS  FRAME  FOR  THIS  CROSS  SECTION 
CALL  RESET(’ALL’) 

CALL  INTAXS 

CALL  MX1ALF( •STANDARD*  *  I ’) 

CALL  MX2ALF l ’ L/CGRK ’,’#’) 

CALL  AREA2D(GRFSZ,GRFSZ) 

IF  (ZVAL.GE.ZSTEP . AND. (MSRF. EQ. 2. OR. MSRF. EQ.8) )  THEN 
CALL  MESSAGE  ’  SOLID  -  INTERFERE 100,0 . 1 .7 .35) 

CALL  MESSAG (’DASHED  -  ACTUALS’ , 100,2.3,7.35) 

END  I F 
C 

C  -  HEADLINE.  LABELS.  AND  PARAMETER 

GO  TO  (496,402,496.  496,403,490,  496,404.496, 

1  490,405,490,  490,406,496,  490,407,490)  MSRF 

402  CALL  HEADIN( ’RAMAN  PUMP:  PHASES’ . 1 00. 1 .5. 1 ) 

GO  TO  409 

403  CALL  HEADIN( ’RAMAN  PUMP:  MODE  PHASES’ . 166. 1 .5 . 1 ) 

GO  TO  409 

404  CALL  HEAD IN( ’ RAMAN  STOKES:  PHASES’ . 166. 1 -5. 1 ) 

GO  TO  409 

405  CALL  HEADIN( ‘RAMAN  STOKES:  MODE  PHASES’ . 106. 1 .5, 1 ) 

GO  TO  409 

406  CALL  HEAD IN( ‘RAMAN  MAT.  EXC.:  PHASES’ . 166. 1 .5 , 1 ) 

GO  TO  409 

407  CALL  HEADIN( ’RAMAN  MAT.  EXC.:  MODE  PHASES’ . 166. 1 .5. 1 ) 

409  CONTINUE 

CALL  MESSAG ( ’ Z  -  S’ . 100 ,59 ,7. 1 ) 

I PLACE-2 

IF  (ABS(ZVAL).GT. 9999.0. OR. ABS(ZVAL) . LT. 0.01)  IPLACE— 2 
CALL  REALNO(2VAL, IPLACE, 6. 4,7 . 1 ) 

CALL  XNAME( 'TIME  (PICO-SECONDS)S ’ . 106) 

IF  (MSRF.EQ.5-0R.MSRF.EQ.il .OR. MSRF. EQ. 17)  THEN 
CALL  YNAME( 'MODE  PHASE  (MULTIPLES  OF  #PI)S’,160) 

CALL  MESSAG(’KY  -  S’ . 100,4.2,7 . 1 ) 

IPLACE-2 

IF  (ABS(SECR).GT. 9999.0. OR. ABS(SECR) . LT. 0.01)  IPLACE— 2 
CALL  REALNO(SECR, IPLACE, 4 .7,7.1) 

CALL  MESSAG! '2  -  DIM. S’ . 100,5.9,7.35) 

I SEC— I NT ( ( SECR+NYHP/YM2M 1 ) • YM2M1 ) 

ELSE 

CALL  YNAME( ‘PHASE  (MULTIPLES  OF  #PI)S’.106) 

IF  (NY.LE.8)  THEN 

CALL  MESSAGE ’ 1  -  0  TRA.S’ . 100,5.9,7.35) 

ISEC— NINT(SECR) 

GO  TO  (412,413,414,415)  ITYPE(ISEC) 

412  CALL  MESSAG ( 'SEC-HYPERB.  ,  EXP  -  S’ , 100,0. 1 .7. 1 ) 

GO  TO  416 

413  CALL  MESSAG (’RECTANGULARS’ ,100.0.1 ,7.1) 

GO  TO  416 

414  CALL  MESSAG ( ’ LORENTZ I AN  ,  EXP  -  S’ , 100 .0. 1 ,7. 1 ) 

GO  TO  416 

415  CALL  MESSAGC EXPONENTIAL  .  EXP  -  S' . 100,0. 1 ,7. 1) 
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416  CONTINUE 

IF  (I TYPE (I SEC) .NE.2)  THEN 
XRTYPE-RTYPE(ISEC) 

I  PUCE-2 

I F  (ABS(XRTYPE) . GT . 9999 . 8 . OR . ABS(XRTYPE) . LT . 8 . 81 ) 

1  IPUCE— 2 

CALL  REALNO(XRTYPE, I PLACE, 2. 4,7.1) 

END  IF 

IF  (NY.GT.1)  THEN 

CALL  MESSAC( 'CASES’ ,168.4.6,7.1) 

CALL  INTNO( IS EC, 4. 7,7. 1) 

END  IF 
ELSE 

CALL  MESSAG(‘Y  -  $‘,188.4.2.7.1) 

I  PUCE-2 

IF  (ABS(SECR)  .GT  .  9999 .0.OR.  ABS(SECR)  .  LT.8. 81 )  IPUCE— 2 
CALL  REALNO(SECR , I PL ACE, 4. 7 ,7.1) 

CALL  MESSAGi ’ 2  -  DIM . $*  1 88.5 .9 .7.35) 

ISEC-INT( (SECR+RDY*NYHP)/RDY) 

END  IF 
END  IF 
C 

C  -  MAGNITUDE  OATA,  ABSCISSA  VECTOR 
DO  418  K1-1.NT 
XR-SRF(KI.ISEC) 

XI-SRFI (K1 , I SEC) 

S£CTN(K1 )— SQRT(XR*XR+X I *XI ) 

XX(K1 )— TM1+RDT* (K1— 1 ) 

418  CONTINUE 
C 

C  -  UNCERTAIN  PHASE  THRESHOLD 

XMX-SECTN(ISMAX(NT.SECTN,1 )) 

IF  (XMX.LT. 1 .8E-38)  THEN 

WRITE  (59.*)  ‘note:  UNRELIABLE  PHASE.  MAGNITUDES  ARE  ZERO* 

GO  TO  498 
END  IF 

XTHRSH— XMX/1 .0E8 

C  —  CALCUUTE  PHASE  DATA 
C 

C  -  PHASE  OF  FIRST  DATA  POINT  WITHIN  +/-  PI  OF  ZERO  PHASE 
SCTOLD— 8.8 
C 

C  -  INITIALIZE  LOOP  VARIABLES 
NAB— 1 
NAN-8 
K I NCR-6 
C 

C  —  LOOP  OVER  ALL  GRID  POINTS;  KINCR  LOOP  COUNTER 
420  CONTINUE 

K I NCR— K I NCR+1 
C 

C  -  CLEAR  VECTOR  FOR  PHASE  DATA 
SECTI(KINCR)-6.6 
C 

C  -  FINO  STRING  OF  GRID  POINTS  (NAB  TO  NAN)  WHERE  MAGNITUDE  OF  FIELD 
C  DATA  EXCEEDS  THRESHOLD 

IF  (SECTN(KINCR).GE. XTHRSH)  THEN 
NAN— KINCR 
C 

C  -  PUCE  MARKER  (SECTN— 1.0)  WHERE  FIELD  MAGNITUDE  IS  BELOW  THRESHOLD 
C  (UNCERTAIN  PHASE  INFORMATION) 

ELSE 
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SECTN(KINCR)  —  1  .6 
IF  (NAN. GE. NAB)  THEN 
G 

C  -  EXIT  LOOP  TEMPORARILY  TO  CALCULATE  PHASE  DATA  FOR  STRING  OF  GRID 
C  POINTS  NAB  TO  NAN 
GO  TO  421 
ELSE 
C 

C  -  CURRENT  DATA  POINT  STILL  UNCERTAIN;  INCREMENT  NAB  (BEGINNING  OF  NEXT 
C  STRING) 

NAB-KINCR+1 
END  IF 
END  IF 
C 

C  —  END  LOOP  OR  CONTINUE  IN  LOOP  UNTIL  NT 
IF  (KINCR.LT. NT)  GO  TO  420 
C 

C  -  SKIP  PHASE  CALCULATION,  LAST  DATA  POINTS  ARE  UNCERTAIN 
IF  (NAN. LT. NAB)  GO  TO  432 
C 

C  -  CALCULATE  RAW  PHASE  MODULO  2«PI 
421  CONTINUE 

DO  423  KS^NAB  NAN 

SECTI(K3)-ATAN2(SRFI(K3,ISEC).SRF(K3,ISEC))/PI 
423  CONTINUE 
C 

C  -  CALCULATE  EXACT  PHASE  KEEPING  TRACK  OF  MULIPLES  OF  2*PI  COUNTED  BY 
C  LPI 

LPI-0 

IF  (NAN. EQ. NAB)  THEN 
C 

C  -  SINGLE  DATA  POINT 

SECTI(NAN)-SECTI(NAN)+SCTOLD 
GO  TO  431 
END  IF 
C 

C  -  PHASE  OF  FIRST  DATA  POINT  IN  STRING 
PSIP-SECTI(NAB) 

SECTI(NAB)-PSIP+SCTOLD 

C 

C  -  PHASE  OF  FOLLOWING  DATA  POINTS  IN  STRING 
DO  429  K4-NAB+1.NAN 
PSIK-SECTI(M) 

IF  (PSIP.GE.0.0)  THEN 

C  -  INCREMENT  LPI  IF  PRESENT  RAW  PHASE  PSIK  DIFFERS  BY  MORE  THAN  PI  FROM 
C  THE  PREVIOUS  POINT  PSIK  (WHICH  WAS  POSITIVE) 

IF  (ABS(PSIK-PSIP) .GT. 1 .0)  LPI-LPI+2 
ELSE 
C 

C  -  DECREMENT  LPI  IF  PRESENT  RAW  PHASE  PSIK  DIFFERS  BY  MORE  THAN  PI  FROM 
C  THE  PREVIOUS  POINT  PSIK  (WHICH  WAS  NEGATIVE) 

IF  (ABS(PSIK-PSIP).CT. 1 .0)  LPI-LPI-2 
END  IF 
C 

C  -  EXACT  PHASE 

SECTI (K4)-PSIK+LPI+SCT0LD 

C  -  CURRENT  RAW  PHASE  BECOMES  PREVIOUS  RAW  PHASE  NEXT  TIME  THROUGH  THE 
C  LOOP 

PSIP-PSIK 
429  CONTINUE 
431  CONTINUE 
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2962 

2963 

2964 
2963 

2966 

2967 
2966 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 
2976 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 
2996 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 
3617 

3018 

3019 

3020 

3021 

3022 

3023 

3024 


C 

C  -  STORE  PHASE  OF  LAST  OATA  POINT  AS  REFERENCE  VALUE  FOR  NEXT  STRING  OF 
C  RELIABLE  OATA 

SCTOLD-SECTI(NAN) 

C 

C  -  INCREMENT  LABEL  OF  BEGINNING  OF  NEXT  STRING 
NAB-KINCR+1 
C 

C  -  FIND  NEXT  STRING  OF  PHASE  DATA 
IF  (NAN.LT.NT)  GO  TO  420 

432  CONTINUE 
C 

C  -  PLOT  COORDINATE  SYSTEM 

IF  ( (MSRF. EQ. 2 .OR .MSRF . EQ. 8) .AND. ZVAL. LT. ZSTEP)  THEN 
C 

C  -  MEMORIZE  ORIGINAL  PHASE 
DO  433  13-1. NT 
IF  (MSRF. EQ. 2)  THEN 

PPMEM(I3,K)-SECTI(I3) 

ELSE 

PSMEM( I 3,K)-SECTI (13) 

ENOIF 

433  CONTINUE 
ELSE 

C 

C  -  INTERFEROMETRIC  PHASE  (CURRENT  PHASE  MINUS  ORIGINAL  PHASE) 

DO  434  13-1. NT 
IF  (MSRF.EQ.2)  THEN 

SECTJ( I 3)-aECTI (I3)-PPMEM( 13. K) 

ELSE 

SECTJ(I3)-SECTI(I3)-PSMEM(I3.K) 

END  IF 

434  CONTINUE 
ENOIF 

C 

C  -  SCALE  AXIS  BY  COMBINATION  OF  BOTH  CURVES 
NECLEC— 1 
PHASTP— 0 . 0 

CALL  NYSX I S ( S ECT J . NT . NEC L EC . PHASOR . PHASTP . PHASMX ) 

NECLEC— 0 

CALL  NYSX I S ( S ECT I . NT . NEC LEC . PHASOR . PHASTP . PHASMX ) 

C 

C  -  MAKE  FRACTIONAL  Y-AXIS  LIMITS  INTEGRAL 
IF  (PHASTP. LE. 1 .0)  THEN 
PHSOR I -AN I NT ( PHASOR ) 

PHSMX I  -AN  I  NT  (PHASMX  ) 

IF  ( PHASOR. LE. PHSOR I)  THEN 
PHASOR— PHSOR 1-1 .0 
ELSE 

PHASOR— PHSOR I 
ENOIF 

IF  ( PHASMX. GE. PHSMX I)  THEN 
PHASMX-PHSMXI+1 .0 
ELSE 

PHASMX-PHSMX I 
ENOIF 
C 

C  -  SMALLEST  Y- INTERVAL  SIZES  SHOULD  BE  PI/4  ANO  PI/2 
PHASD F-PHA  SMX-PHASOR 
IF  (PHASDF . LE. 2 . 0)  THEN 
PHASTP— 0 . 25 

ELSE  IF  (PHASDF. LE- 4.0)  THEN 
PHASTP-0 . 5 
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3025  ENOIF 

3026  ENOIF 

3027  CAUL  GRAF ( TOR IG . TSTP , TMAX , PHASOR , PHASTP , PHASMX ) 

3028  C 

3029  C  -  COMPLETE  COORDINATE  FRAME  AND  TICKMARKS 

3030  XDUM(1)-TORIG 

3031  XDUM(2)-TMAX 

3032  YDUMI1  l-PHASMX 

3033  YDUM(2)«PHASMX 

3034  CALL  CURV E ( XOUM , YDUM . 2 , 0 ) 

3035  NTIK-NINT((TMAX-TORIG)/TSTP) 

3036  YDUM(l)-PHASMX 

3037  YDUM ( 2 ) “PHASMX— ( PHASMX-PHASOR ) /50 . 0 

3038  XDM-TOR1G 

3039  DO  435  ITK-1.NTIK-1 

3040  XDM-XDM+TSTP 

3041  XDUM(1)-XDM 

3042  XDUM(2)-XDM 

3043  CALL  CURVE(XDUU. YDUM. 2,0) 

3044  435  CONTINUE 

3045  XDUM(1)-TMAX 

3046  XDUM(2)-TMAX 

3047  YOUMl 1 ) “PHASMX 

3048  YDUM ( 2 ) "PHASOR 

3049  CALL  CURVE (XDUM, YDUM. 2,0) 

3050  NTIK-NINT ( (PHASMX-PHASORJ/PHASTP) 

3051  XDUM( 1 )-TMAX-(TMAX-TORIG)/50 . 0 

3052  XDUM(2)-TMAX 

3053  YDM-PHASOR 

3054  DO  438  ITK-1 .NTIK-1 

3055  YDM-YDM+PHASTP 

3056  YDUMf 1 )"YOM 

3057  YDUM(2)-YDM 

3058  CALL  CURVE (XOUM. YDUM. 2.0) 

3059  436  CONTINUE 

3060  C 

3061  C  -  PLOT  PHASE  CURVE  SEGMENTS;  RESET  COUNTERS 

3062  NPOINTS-0 

3063  K I  NCR-0 

3064  C 

3065  C  —  LOOP  OVER  DATA  POINTS;  LOOP  COUNTER  KINCR 

3066  437  CONTINUE 

3067  KINCR-KINCR+1 

3068  IF  (SECTN(KINCR) . LT.— 0.99)  THEN 

3069  C 

3070  C  -  UNRELIABLE  PHASE  MARKER  ENCOUNTERED;  PLOT  DATA  STRING  OF  LENCTH 

3071  C  NPOINTS 

3072  IF  (NPOINTS. GT.0)  GO  TO  438 

3073  ELSE 

3074  C 

3075  C  -  INCREMENT  OATA  STRING  COUNTER;  PUSH  RELIABLE  DATA  TO  FRONT  OF  VECTOR 

3076  C  FOR  PLOTTING 

3077  NPOINTS-NPOINTS+1 

3078  SECTI(NPOINTS)-SECTI (KINCR) 

3079  IF  (ZVAL .GE. ZSTEP . AND. (MSRF. EQ.2.0R.MSRF. EO. 8) )  THEN 

3080  SECTJ(NPOINTS)-SECTJ(KINCR) 

3081  END IF 

3082  XX (NPOINTS)“XX (KINCR) 

3083  ENOIF 

3084  C 

3085  C  —  ENO  LOOP  OR  CONTINUE  IN  LOOP  UNTIL  NT 

3086  IF  (KINCR.LT. NT)  GO  TO  437 

3087  C 
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5088 

5089 

5090 

5091 

5092 
5095 

5094 

5095 
5090 

5097 

5098 

5099 

5100 

5101 

5102 
5105 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 
5115 

5114 

5115 
5110 

5117 

5118 

5119 

5120 

5121 

5122 
5125 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

3132 

3133 

3134 

3135 
3130 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 


C  -  LAST  DATA  POINTS  UNRELIABLE:  END  PHASE  PLOTTING 
IF  (NPOINTS . EQ . 0)  GO  TO  440 
438  CONTINUE 
C 

C  -  PLOT  DATA  STRING:  RESET  DATA  COUNTER 
C  -  DRAW  INTERFEROMETRIC  PHASE  SOLID 

IF  (ZVAL.GE. ZSTEP . AND . (MSRF . EQ. 2 .OR.MSRF. EQ. 8) )  THEN 
CALL  CURVE(XX.SECTJ. NPOINTS, 0) 

ENOIF 

C 

C  -  DRAW  CURRENT  PHASE  OASHED 
CALL  DASH 

CALL  CURVE(XX,SECTI, NPOINTS. 0) 

CALL  RESET ( ’ DASH  * ) 

NPOINTS-0 


C 

C 


-  JUMP  BACK  INTO  LOOP  FOR  NEXT  STRING  OF  PHASE  DATA 
IF  (KINCR.LT. NT)  GO  TO  437 
440  CONTINUE 

CALL  EN0PL(6 ) 

GO  TO  490 
450  CONTINUE 


C  —  VERTICAL  CROSS  SECTION  (  FIRST  VARIABLE  FIXED  IN  SRF) ; 
C 

C  -  START  A  NEW  GRAPHICS  FRAME  FOR  THIS  CROSS  SECTION 
CALL  RESET ( ‘ALL* ) 

CALL  INTAXS 

CALL  MX1 ALF( ’STANDARD* ,  ’  t  ’  ) 

CALL  MX2ALFI * L/CGRK ' . ’ 4 ’ ) 

CALL  AREA2D(GRFSZ,GRFSZ) 

IF  (ZVAL.GE. ZSTEP .ANO . (MSRF. EQ. 2 .OR.MSRF. EQ.8) )  THEN 
CALL  MESS AG ( ’SOLID  -  INTERFER. $ ’ . 1 00 .0 . 1 .7 . 35) 

CALL  MESSAG( ’OASHED  -  ACTUALS’ . 100,2.4,7.35) 

END  IF 


C 

C  -  HEADLINE.  LABELS.  ANO  PARAMETER 

CO  TO  (490,452.490,  490.453,490,  490,454.490. 

1  490.455,490.  490,456.490.  490,457,490)  MSRF 

452  CALL  HEAOIN( ‘RAMAN  PUMP:  PHASES’ , 1 00. 1 ■ 5. 1 ) 

GO  TO  459 

453  CALL  HEADIN( ’RAMAN  PUMP :  PHASE  (FFT)S* . 100. 1 . 5. 1 ) 

GO  TO  459 

454  CALL  HEAD I N( ’RAMAN  STOKES:  PHASES* . 100. 1 . 5 . 1 ) 

GO  TO  459 

455  CALL  HEAOIN( ’RAMAN  STOKES:  PHASE  (FFT)S’ . 190. 1 .5. 1 ) 
GO  TO  459 

456  CALL  HEAOIN( ‘RAMAN  MAT.  EXC.:  PHASES' . 106. 1 .5, 1 ) 

CO  TO  459 

457  CALL  HEADIN( ’RAMAN  MAT.  EXC.:  PHASE  (FFT)S’ . 100. 1 .5, 1 
459  CONTINUE 

CALL  MESSAGCZ  -  S’ .  100 .5.9 .7. 1 ) 

I PLACE-2 

IF  (ABS(ZVAL) .GT. 9999.0. OR. ABS(ZVAL) . LT . 0.01)  IPLACE- 
CALL  REALNO(ZVAL, I PLACE , 6. 4, 7 . 1 ) 

IF  (MSRF. EQ. 5. OR. MSRF. EQ. 11. OR. MSRF. EQ. 17)  THEN 
CALL  XNONUM 
CALL  XTICKS(0) 

CALL  YNAME( ’ FFT  PHASE  (MULTIPLES  OF  #PI)S’.100) 

ROYX-RDYF 

XORIG-YFORIG 

XSTP-YFSTP 

XMAX-YFMAX 


PHASE 
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3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 
3166 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 
3176 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 
3186 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 
3196 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 
3266 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3288 

3289 
3216 

321 1 

3212 

3213 


ELSE 

CALL  XNAME( ’Y-DIMENSION  (CM)$’,100) 

CALL  YNAME(’ PHASE  (MULTIPLES  OF  #P!)$*,100) 

RDYX-RDY 
XORIG-YORIG 
XSTP-YSTP 
XMAX-YMAX 
END  IF 

IF  (NT.LE.8)  THEN 

CALL  MESSAG ( * EXPON  .  .  MHYP  -  $  * . 1 08 .6 . 1 , 7 . 1  ) 

CALL  INTNO(NHYP ,2.8,7. 1 ) 

CALL  MESSAG ( *  1  -  D  STA. $ ’ . 1 66 , 5 . 9 . 7 . 35) 

ISEC-NINT(SECR) 

IF  (NT.GT.1)  THEN 

CALL  MESSAG ( •CASES’ .166,4.0.7.1) 

CALL  INTN0(ISEC,4.7,7.1) 

END  IF 
ELSE 

CALL  MESSAG ( * 2  -  DIM. S’ . 106,5.9,7.35) 

CALL  MESSAG(’T  -  $*,100,4.2,7.1) 

I PLACE-2 

IF  (ABS(SECR) . GT . 9999 . 6 .OR . ABS(SECR) . LT . 0.61 )  IPLACE— 2 
CALL  REALNO(SECR , IPLACE, 4 .7,7.1) 
ISEC-INT((SECR+RDT*(NT/2+1))/RDT) 

ENOIF 

C 

C  -  MAGNITUDE  DATA,  ABSCISSA  VECTOR 
DO  468  K1-1 ,NY 
XR-SRF(ISEC,K1 ) 

XI-SRFI ( ISEC ,K 1 ) 

SECTN(K1 )— SORT (XR»XR+XI «XI ) 

XX(K1)-XORIG+RDYX*(K1-1) 

460  CONTINUE 
C 

C  -  UNCERTAIN  PHASE  THRESHOLD 

XMX-SECTN(ISMAX(NY,SECTN. 1)) 

IF  ( XMX . LT . 1 . 0 E— 30 )  THEN 

WRITE  (59.*)  ‘note:  UNRELIABLE  PHASE,  MAGNITUDES  ARE  ZERO’ 
GO  TO  496 
END  IF 

XTHRSH— XMX/1 .0E8 
C 

C  —  CALCULATE  PHASE  DATA 
C 

C  -  PHASE  OF  FIRST  OATA  POINT  WITHIN  +/-  PI  OF  ZERO  PHASE 
SCTOLD— 6.6 
C 

C  -  INITIALIZE  LOOP  VARIABLES 
NAB— 1 
NAN-6 
K I NCR-0 
C 

C  —  LOOP  OVER  ALL  GRID  POINTS;  KINCR  LOOP  COUNTER 
476  CONTINUE 

KINCR-KINCR+1 

C 

C  -  CLEAR  VECTOR  FOR  PHASE  DATA 
SECT I (KINCR)-6 . 0 
C 

C  -  FIND  STRING  OF  GRID  POINTS  (NAB  TO  NAN)  WHERE  MAGNITUDE  OF  FIELD 
C  DATA  EXCEEDS  THRESHOLD 

IF  (SECTN(KINCR) .GE. XTHRSH)  THEN 
NAN-K I NCR 
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3214  C 

3215  C  -  PLACE  MARKER  (SECTN— 1.0)  WHERE  FIELD  MAGNITUDE  IS  BELOW  THRESHOLD 

3216  C  (UNCERTAIN  PHASE  INFORMATION) 

3217  ELSE 

3218  SECTN(KINCR)— 1 .8 

3219  IF  (NAN. GE. NAB)  THEN 
3226  C 

3221  C  -  EXIT  LOOP  TEMPORARILY  TO  CALCULATE  PHASE  DATA  FOR  STRING  OF  GRID 

3222  C  POINTS  NAB  TO  NAN 

3223  GO  TO  471 

3224  ELSE 

3225  C 

3226  C  -  CURRENT  DATA  POINT  STILL  UNCERTAIN;  INCREMENT  NAB  (BEGINNING  OF  NEXT 

3227  C  STRING) 

3228  NAB-KINCR+1 

3229  END IF 

3230  END IF 

3231  C 

3^52  C  —  END  LOOP  OR  CONTINUE  IN  LOOP  UNTIL  NT 

3233  IF  (KINCR.LT. NY)  GO  TO  470 

3234  C 

3235  C  -  SKIP  PHASE  CALCULATION.  LAST  DATA  POINTS  ARE  UNCERTAIN 

3236  IF  (NAN. LT . NAB)  GO  TO  479 

3237  471  CONTINUE 

3238  C 

3239  C  -  CALCULATE  RAW  PHASE  MODULO  2»PI 

1240  DO  473  K3-NAB.NAN 

3241  SECT I (K3)»ATAN2 (SRFi ( ISEC.K3) , SRF(ISEC,K3))/PI 

3242  473  CONTINUE 

3243  C 

3244  C  -  CALCULATE  EXACT  PHASE  KEEPING  TRACK  OF  MULIPLES  OF  2»PI  COUNTED  BY 

3245  C  LPI 

3246  LPI-0 

3247  IF  (NAN. EQ. NAB)  THEN 

5248  0 

3249  C  -  SINGLE  DATA  POINT 

3250  SECTI  (NAN) -SECTI  (NAN)-fSCTOLD 

3251  GO  TO  477 

3252  END IF 

3253  C 

3254  C  -  PHASE  OF  FIRST  DATA  POINT  IN  STRING 

3255  PSIP-SECTI(NAB) 

3256  SECTI (NAB)«PSIP+SCTOLD 

3257  C 

3258  C  -  PHASE  OF  FOLLOWING  DATA  POINTS  IN  STRING 

3259  DO  475  K4-NAB+1 .NAN 

3260  PSIK-SECTI(K4) 

3261  IF  (PSIP.CE.0.0)  THEN 

3262  C 

3263  C  -  INCREMENT  LPI  IF  PRESENT  RAW  PHASE  PSIK  DIFFERS  BY  MORE  THAN  PI  FROM 

3264  C  THE  PREVIOUS  POINT  PSIK  (WHICH  WAS  POSITIVE) 

3265  IF  (ABS(PSIK-PSIP) .GT. 1 .0)  LPI-LPI+2 

3266  ELSE 

3267  C 

3268  C  -  DECREMENT  LPI  IF  PRESENT  RAW  PHASE  PSIK  DIFFERS  BY  MORE  THAN  PI  FROM 

3269  C  THE  PREVIOUS  POINT  PSIK  (WHICH  WAS  POSITIVE) 

3270  IF  (ABS(PSIK-PSIP) ,GT . 1 . 0)  LPI-LPI-2 

3271  END IF 

3272  C 

3273  C  -  EXACT  PHASE 

3274  SECTI (K4)-PSIK+LPI+SCTOLO 

3275  C 

3270  C  -  CURRENT  RAW  PHASE  BECOMES  PREVIOUS  RAW  PHASE  NEXT  TIME  THROUGH  THE 
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3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 
3296 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3335 

3336 

3337 

3338 

3339 


:  LOOP 

PSIP-PSIK 
475  CONTINUE 
477  CONTINUE 

STORE  PHASE  OF  LAST  DATA  POINT  AS  REFERENCE  VALUE  FOR  NEXT  STRING  OF 
RELIABLE  DATA 

SCTOLD-SECTI(NAN) 


C 

C 

C 

C 

C 

C 

C 


INCREMENT  LABEL  OF  BEGINNING  OF  NEXT  STRING 
NAB-KINCR+1 

FIND  NEXT  STRING  OF  PHASE  DATA 
IF  (NAN. LT.NY)  GO  TO  470 
479  CONTINUE 


C  -  MEMORIZE  ORIGINAL  PHASE 

IF  (ZVAL. LT.ZSTEP)  THEN 
IF  (MSRF.EQ.2)  THEN 
DO  480  13-1 , NY 
PPMEM( 13 , K) -SECT I (13) 

480  CONTINUE 
ELSE 

DO  481  13-1 .NY 
PSM£M( I 3, K)— SECT I (13) 

481  CONTINUE 
END  IF 

ELSE 

C 

C  -  INTERFEROMETRIC  PHASE  (CURRENT  PHASE  MINUS  ORIGINAL  PHASE) 
IF  (MSRF.EQ.2)  THEN 
DO  482  13-1 .NY 

SECT J (13)— SECT I ( I3)-PPMEM(I3,K) 

482  CONTINUE 
ENOIF 

IF  (MSRF.EQ.8)  THEN 
DO  483  13-1 .NY 

SECTJ ( I3J-SECTI ( I3)-PSMEM( 13 ,K) 

483  CONTINUE 
END  IF 

ENOIF 


C 

C  —  COMPUTE  COORDINATE  SYSTEM 
C 

C  -  SCALE  Y-COOROINATE  AXIS 
NECLEC— 1 
PHASTP— 0.0 

CALL  NYSXIS(SECTI .NY.NECLEC, PHASOR, PHASTP. PHASMX) 

C 

C  -  INCLUDE  INTERFERENCE  PHASE  IN  SCALE  OF  Y-AXIS  LIMITS 
IF  (MSRF.EQ.2. OR. MSRF.EQ.8)  THEN 
NECLEC-0 

C A  L  L  NYSX I S ( S  ECT J , NY . N EC  L EC . PHASOR . PHASTP . PHASMX ) 
ENOIF 
C 

C  -  MAKE  FRACTIONAL  Y-AXIS  LIMITS  INTEGRAL 
IF  (PHASTP. LE. 1 .0)  THEN 
PHSOR I -AN I NT (PHASOR ) 

PHSMX I -AN I NT ( P  HASMX ) 

IF  ( PHASOR. LE. PHSOR I )  THEN 
PHASOR-PHSOR I - 1 .0 
ELSE 

PHASOR-PHSOR I 
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3340 

3341 

3342 

3343 

3344 

3345 
3340 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 


wwwmmuii'w 


END  IF 

IF  (PHASMX .  GE . PHSMXI )  THEN 
PHASMX-PHSMXI+1 .0 
ELSE 

PHASMX-PHSMXI 
END  IF 
C 

C  -  SMALLEST  Y-INTERVAL  SIZES  SHOULD  BE  PI/4  AND  PI/2 
PHASDF-PHASMX-PHASOR 
IF  (PHASDF. IE. 2.0)  THEN 
PHASTP-0.25 

ELSE  IF  (PHASDF. LE. 4.0)  THEN 
PHASTP-0 . 5 
END  IF 
END  IF 


C  —  PLOT  COORDINATE  SYSTEM 

CALL  GRAF ( XOR IC . XSTP , XMAX , PHASOR . PHASTP . PHASMX) 

C 

C  -  COMPLETE  COORDINATE  SYSTEM  BY  A  FRAME  AND  TICKMARKS 
XDUM(l)-XORIG 
X0UMI2  l-XMAX 
YDUMM  l-PHASMX 
YDUM(2)-PHASMX 
CALL  CUR V E ( XOUM , YDUM ,2,0) 

IF  (MSRF.EQ. 5. OR.MSRF.EQ.il .OR.MSRF.EQ. 17)  GOTO  485 
NT I K-N I NT ( ( XMAX-XOR I G)/XSTP) 

YDUMf 1 )— PHASMX 

YDUM ( 2 ) "PHASMX- ( PHASMX-PHASOR )/50 . 0 
XD^XORIG 

DO  484  ITK-1.NTIK-1 
XDM-XOM+XSTP 
XDUM( 1 )-XDM 
XDUM(2)-XDM 

CALL  CURVE( XOUM. YDUM, 2.0) 

484  CONTINUE 

485  CONTINUE 
XDUMf 1 )»XMAX 
XDUMI2  oXMAX 
YDUMf 1)-PHASMX 
YOUM(2)-PHASOR 

CALL  CURVE (XDUM. YDUM, 2.0) 

NT I K-N I NT ( ( PHASMX-PHASOR ) /PHASTP ) 

XDUMf 1 ) -XMAX- (XMAX-XOR I G)/50 . 0 

X0UM(2)-XMAX 

YDW^PHASOR 

00  486  ITK-1.NTIK-1 

YDM-YDM+PHASTP 

YDUMf 1)-YDM 

YDUM(2)-YDM 

CALL  CURVE (XDUM. YDUM, 2,0) 

486  CONTINUE 


C 

C  -  PLOT  PHASE  CURVE  SEGMENTS;  RESET  COUNTERS 
NPOINTS-0 
K I NCR-0 


C 

C  —  LOOP  OVER  DATA  POINTS;  LOOP  COUNTER  KI NCR 
487  CONTINUE 

KINCR-KINCR+1 

IF  (SECTN(KINCR) . LT.-0.99)  THEN 
C 

C  -  UNRELIABLE  PHASE  MARKER  ENCOUNTERED:  PLOT  DATA  STRING  OF  LENGTH 


£ 


■M 


4 


4 


4 


a 
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3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

341 1 

3412 

3413 
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3427 
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3431 
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3434 
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3443 
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3445 
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3448 
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3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 
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3460 

3461 

3462 

3463 

3464 

3465 


C  NPOINTS 

IF  (NPOINTS .GT.0)  GO  TO  488 
ELSE 
C 

C  -  INCREMENT  DATA  STRING  COUNTER;  PUSH  RELIABLE  DATA  TO  FRONT  OF  VECTOR 
NPOINTS-NPOINTS+1 
SECT I (NPOINTS) "SECT I (K INCR) 

IF  (ZVAL.GE .ZSTEP.AND. (MSRF . EQ . 2 . OR . MSRF . EQ. 8) )  THEN 
SECTJ (NPOINTS) “SECT  J (KINCR) 

END  IF 

XX(NPOINTS)-XX(KINCR) 

END  IF 
C 

C  —  END  LOOP  OR  CONTINUE  IN  LOOP  UNTIL  NY 
IF  (KINCR.LT. NY)  GO  TO  487 
C 

C  -  LAST  DATA  POINTS  UNRELIABLE:  END  PHASE  PLOTTING 
IF  (NPOINTS. EQ. 8)  GO  TO  489 

488  CONTINUE 
C 

C  -  PLOT  DATA  STRING;  RESET  DATA  COUNTER 
C  -  DRAW  INTERFEROMETRIC  PHASE  SOLID 

IF  (ZVAL. GE. ZSTEP.AND. (MSRF. EQ. 2. OR. MSRF. EQ. 8))  THEN 
CALL  CURVE(XX.SECTJ. NPOINTS. 0) 

END  IF 
C 

C  -  ORAW  CURRENT  PHASE  OASHED 
CALL  DASH 

CALL  CURVE(XX,SECTI, NPOINTS. 0) 

CALL  RESET( 'DASH' ) 

NPOINTS-0 

C 

C  -  JUMP  BACK  INTO  LOOP  FOR  NEXT  STRING  OF  PHASE  DATA 
IF  (KINCR. LT. NY)  GO  TO  487 

489  CONTINUE 
C 

C  —  SPECIAL  AXIS  AND  LABEL  FOR  FFT  COORDINATE 
C 

IF  (NY. GT. 8. AND. (MSRF. EQ. 5. OR. MSRF. EQ. 11 .OR. MSRF. EQ. 17)) 

1  CALL  XISFFT  CX’  .PHASOR  .PHASMX) 

C 

C  -  END  OF  PHASE  SECTION  PLOT 
CALL  ENDPL(e) 

490  CONTINUE 
C 

C  -  CROSS  SECTIONS  OF  AMPLITUDE  SURFACES  (REAL/ I MAC I NARY 

C  REPRESENTATION) 

NSRF-MSRF+1 

C 

C  —  CHECK  EACH  ELEMENT  IN  ROW  MSRF  OF  ARRAY  CSEC 
DO  590  K-1.NSEC 
SECR-REAL (CSEC (NSRF , K) ) 

C 

C  -  ONE-DIMENSIONAL  CASES 
IF  (NY.LE.8)  THEN 

IF  (SECR. LT .0 . 5.0R. SECR.GT .8.5)  GO  TO  590 
GO  TO  501 

ELSE  IF  (NT.LE.8)  THEN 

IF  (SECR. LT. 0.5. OR. SECR.GT. 8. 5)  GO  TO  590 
GO  TO  540 
END  IF 
C 

C  -  TWO  DIMENSIONAL  CASES;  SECTION  ONLY  IF  IMAGINARY  PART  OF  CSEC- 
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3466 
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3495 

3496 

3497 

3498 
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3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 
3518 

351 1 

3512 

3513 

3514 

3515 
3518 

3517 

3518 

3519 
3528 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 


C  ELEMENT  IS  EQUAL  TO  1.8  OR  2.8; 

C  OTHERWISE  GO  TO  NEXT  LOOP  COUNTER  VALUE  K.  I.E.  NEXT  ELEMENT  OF  LINE 
C  MSRF  IN  ARRAY  CSEC 

SECI-AIMAG(CSEC(NSRF,K)) 

IF  (SECI.GT. 8. 9. AND.SECI.LT. 1.1)  GO  TO  540 
IF  (SECI.GT. 1.9. AND.SECI.LT. 2.1)  GO  TO  581 
GO  TO  598 
581  CONTINUE 
C 

C  —  HORIZONTAL  CROSS  SECTION  (SECOND  ARGUMENT  OF  SRF  FIXED);  AMPLITUDE 
C 

C  -  START  A  NEW  GRAPHICS  FRAME  FOR  THIS  CROSS  SECTION 
CALL  RESET(’ALL‘) 

CALL  AREA2D(GRFSZ .GRFSZ) 

CALL  INTAXS 

CALL  MESSAG( 'SOLID  -  REALS' .188,8. 1 .7.35) 

CALL  MESSAG(  'DASHED  -  IMAG. S’.l 88. 1 .7,7.35) 

C 

C  -  HEADLINE,  LA8ELS ,  AND  PARAMETER 

GO  TO (598, 598, 582,  598,598,583,  598,598,504, 

1  590,590,585,  598,598,586,  590.590,587)  NSRF 

502  CALL  HEADIN(’RAMAN  PUMP:  AMPLITUDES’ . 180. 1 .5,1) 

GO  TO  589 

503  CALL  HEA0IN( 'RAMAN  PUMP:  MODE  AMPLITUDES’ . 188. 1 .5, 1 ) 

GO  TO  589 

584  CALL  HEADIN( ‘RAMAN  STOKES:  AMPLITUDES’ . 180. 1 .5, 1 ) 

GO  TO  509 

585  CALL  HEADIN( ‘RAMAN  STOKES:  MODE  AMPLITUDES’ . 180, 1 .5. 1 ) 

GO  TO  509 

586  CALL  HEAD IN( ‘RAMAN  MAT.  EXC.:  AMPLITUDES’ .188.1 .5.1) 

GO  TO  509 

587  CALL  HEAO IN(‘ RAMAN  MAT.  EXC.:  MODE  AMPLITUDES’ . 188. 1 .5, 1 ) 

589  CONTINUE 

CALL  MESS AG ( *Z  -  (*,108,5.9,7.1  ) 

I PLACE-2 

IF  (ABS(ZVAL) .GT.9999. 8.0R. ABS(ZVAL) . LT.0.01 )  I PLACE— 2 
CALL  REALNO(ZVAL, I PLACE, 6. 4, 7. 1 ) 

CALL  XNAME( 'TIME  (PI CO-SECONDS) S’ . 188) 

IF  (NSRF. EQ. 6. OR. NSRF. EQ. 12. OR. NSRF. EQ. 18)  THEN 
CALL  YNAME( ’MODE  AMPLITUDES’ . 188) 

CALL  MESSAG(‘KY  -  S’ . 108,4. 2, 7. 1 ) 

I  PUCE-2 

IF  (ABS(SECR) . GT.9999. 8. OR. ABS(SECR) .LT.0.01 )  IPLACE— 2 
CALL  REALNO(sECR ,  I  PUCE,  4. 7 ,7.1) 

ISEC-INT( (SECR+NYHP/YM2M1 ) »YM2M1 ) 

ELSE 

CALL  YNAMEC AMPLITUDES’ ,108) 

IF  (NY.LE.8)  THEN 

CALL  MESSAG( ’ 1  -  D  TRA. S’ . 100.5.9.7.35) 

ISEC-NINT(SECR) 

GO  TO  (512,513,514,515)  ITYPE(ISEC) 

512  CALL  MESSAG( ’SEC-HYPERB.  .  EXP  -  S’ . 188.8. 1 .7. 1 ) 

GO  TO  516 

513  CALL  MESSAG(’RECTANCUURS’.100.0.1.7.1) 

GO  TO  518 

514  CALL  MESSAG( ’ LORENTZIAN  ,  EXP  -  S’ . 188.8. 1 .7. 1 ) 

GO  TO  516 

515  CALL  MESSAGC EXPONENTIAL  .  EXP  -  S’ .180.0.1 ,7.1) 

516  CONTINUE 

IF  (I TYPE (I SEC) .NE.2)  THEN 
XRTYPE-RTYPE(ISEC) 

I PLACE-2 

I F  (ABS(XRTYPE) . GT . 9999 . 0 . OR . ABS(XRTYPE) .LT.0.01) 


PRAMl  (version  CD) 


3529 

3536 
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3565 
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3585 

3586 

3587 
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3589 
3596 
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1  I  PLACE— 2 

CALL  REALNO(XRTYPE . IPLACE , 2 . 4 . 7 . 1 ) 

END  IF 

IF  (NY.GT.1)  THEN 

CALL  MESSAG( 'CASES' > 166,4.6,7.1  ) 

CALL  INTNO( ISEC, 4. 7, 7.1) 

END  IF 
ELSE 

CALL  MESSAG( ' Y  -  $'.166,4.2.7. t) 

I PLACE-2 

IF  (ABS(SECR) . GT . 9999.6 .OR. ABS(SECR) . LT.6.61 )  IPLACE— 2 
CALL  REALNOfSECR. IPLACE. 4. 7,7.1) 

CALL  MESSAGi *  2  -  DIM. $*, 106.5.9,7. 35) 

I S  EC- 1 NT ( ( S  ECR+RDY*NYHP ) /RDY) 

END  IF 
END  IF 


C  -  CROSS  SECTION  DATA 
DO  528  K1-1 , NT 
SECTNfKI )-SRF(K1 . ISEC) 

SECTI (K1 )-SRFI (K1 , ISEC) 

XX (K1 )-TM1+RDT*(K1— 1 ) 

528  CONTINUE 
C 

C  -  DRAW  COORDINATE  SYSTEM 
NECLEC— 1 
WSTP-8.6 

CALL  NYSXIS(SECTN, NT. NECLEC. WORIG.WSTP.WMAX) 

NECLEC-6 

WSTP-8.0 

CALL  NYSXIS(SECTI .NT, NECLEC, WORIG.WSTP.WMAX) 
CALL  GRAF(TORIG.TSTP.TMAX, WORIG.WSTP.WMAX) 

C 

C  -  COMPLETE  COORDINATE  FRAME  AND  TICKMARKS 
XDUM( 1 )— TORIG 
XDUMl 2)— TMAX 
YDUMi 1 )— WMAX 
YDUM ( 2  -WMAX 

CALL  CURVE ( XDUM , YDUM ,2,6) 

NT I K-N I NT ( ( TMAX-TOR I G )/TSTP ) 

YOUM( 1 )— WMAX 

YDUM ( 2 ) -WMAX- ( WMAX-WOR I G ) /50 . 6 
XDM-TORIG 

DO  536  ITK-1 .NTIK-1 
XDM-XDM+TSTP 
XDUM( 1 )— XDM 
XDUM(2)— XDM 

CALL  CURV E ( XDUM , YDUM ,2,8) 

536  CONTINUE 

XDUM( 1 )— TMAX 

XDUM (2)— TMAX 

YDUMi 1 )— WMAX 

Y0UM(2)— WORIG 

CALL  CURVE(XDUM, YDUM, 2 , 8) 

NT I K-N I NT ( ( WMAX-WOR I G ) /WSTP ) 

XDUM ( 1 ) -TMAX- ( TMAX-TOR I G )/58 . 6 

XDUM(2)— TMAX 

YDM-WORIG 

DO  537  ITK-1. NTIK-1 
YDK^YDM+WSTP 
YDUM( 1 )— YDM 
YDUM(2)-YDM 

CALL  CURVE (XDUM, YDUM, 2.6) 
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537  CONTINUE 
C 

C  -  ORA#  CROSS  SECTION  CURVES 
NPOINTS-NT 

CALL  CURV E ( XX , S ECTN , NPO I NTS , 0 ) 

CALL  DASH 

CALL  CURVE(XX , SECTI ,NPOINTS,0) 

CALL  RESET ('DASH') 

CALL  ENDPL(0) 

GO  TO  590 
540  CONTINUE 
C 

C  —  VERTICAL  CROSS  SECTION  (  FIRST  VARIABLE  FIXED  IN  SRF) ;  AMPLITUDE 
C 

C  -  START  A  NE#  GRAPHICS  FRAME  FOR  THIS  CROSS  SECTION 
CALL  RES£T( 'ALL' ) 

CALL  AREA2D(GRFSZ .GRFSZ) 

CALL  INTAXS 
C 

C  -  HEADLINE,  LABELS.  AND  PARAMETER 

GO  TO  (590.590,542.  590,590.543.  590,590.544, 

1  590,590.545.  590.590,546.  590.590.547)  NSRF 

542  CALL  HEAD  I N ( ’ RAMAN  PUMP:  AMPLITUDES M 00. 1 .5. 1 ) 

GO  TO  549 

543  CALL  HEAOIN( ‘RAMAN  PUMP:  AMPLITUDE  (FFT)$‘,100, 1 . 5. 1 ) 

GO  TO  549 

544  CALL  HEADIN( ‘RAMAN  STOKES:  AMPLITUDES' ,100.1 .5.1) 

GO  TO  549 

545  CALL  HEADIN(‘RAMAN  STOKES:  AMPLITUDE  (FFT)S’ . 100. 1 -5. 1 ) 

GO  TO  549 

546  CALL  HEADIN( ‘RAMAN  MAT.  EXC . :  AMPLITUDES 100. 1 .5. 1 ) 

GO  T^  549 

547  CALL  HEADINfRAMAN  MAT.  EXC.:  AMPLITUDE  (FFT)S' .100.1 .5.1) 

549  CONTINUE 

CALL  MESSAGf ‘SOLID  -  REALS* . 109 . 0. 1 . 7 . 35) 

CALL  MESSAGf ‘DASHED  -  IMAG. S ’ . 100. 1 . 7. 7. 35) 

CALL  MESSAG(’Z  -  S‘ . 100.5.9 . 7. 1 ) 

IPLACE-2 

IF  (ABS(ZVAL).GT. 9999.0. OR. ABS(ZVAL) . LT. 0.01)  IPLACE— 2 
CALL  REALNO(ZVAL, IPLACE , 6. 4 ,7. 1 ) 

IF  (NSRF. EQ. 6 .OR . NSRF . EQ. 12 .OR. NSRF . EQ. 18)  THEN 
CALL  XNONUM 
CALL  XTICKS(0) 

CALL  YNAME(*FFT  AMPLITUDES’ . 100) 

RDYX-RDYF 

XORIG-YFORIG 

XSTP-YFSTP 

XMAX-YFMAX 

ELSE 

CALL  XNAMEf ‘Y— DIMENSION  (CM)S’.100) 

CALL  YNAME( ’AMPLITUDES’ . 106) 

RDYX-RDY 
XORIG-YORIG 
XSTP-YSTP 
XMAX-YMAX 
END  IF 

IF  (NT.LE.8)  THEN 

CALL  MESSAG( ’ EXPON. ,  NHYP  -  S’ . 100. 0. 1 , 7 . 1 ) 

CALL  INTNO(NHYP,2.0,7. 1) 

CALL  MESS AG ( ’ 1  -  0  STA. $ ’ . 100, 5. 9 , 7. 35) 

ISEC-NINT(SECR) 

IF  (NT.GT.1)  THEN 

CALL  MESSAG( ’CASES’ .100,4.0.7.1) 
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122 


PRAM1  (version  CD) 


3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 
3700 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 


CALL  INTNO( I SEC , 4 . 7 , 7 . 1 ) 

END  IF 
ELSE 

CALL  M£SSAG( *T  -  $*.100.4.2.7.1) 

IPLACE-2 

IF  (ABS(SECR) .GT. 9999.0. OR. ABS(SECR) . LT. 0.01)  IPLACE— 2 
CALL  R£ALNO(SECR , IPLACE ,4. 7,7.1) 

CALL  MESSAGI *  2  -  DIM. $* . 1 00 .5 . 9. 7. 35) 

ISEC-INT( (SECR+RDT* (NT/2+1 ) )/RDT) 

END  IF 
C 

C  -  CROSS  SECTION  OATA 
DO  555  K1-1 , NY 
SECTN(K1)-SRF(ISEC,K1) 

SECT I (K1 )-SRFI ( ISEC ,K1 ) 

XX(K1)-XORIG+RDYX*(K1-1) 

555  CONTINUE 


C 

C  - 


C 

C  - 


DRAW  COORDINATE  SYSTEM 
NECLEC-1 
WSTP-0.0 

CALL  NYSXIS(SECTN.NY.NECLEC.WORIG.WSTP.WMAX) 

NECLEC-0 

WSTP-0.0 

CALL  NYSXIS(SECTI . NY.NECLEC. WORIG , WSTP, WMAX) 
CALL  GRAF ( XOR I G . XSTP . XMAX .WORIG, WSTP , WMAX ) 

COMPLETE  COORDINATE  FRAME  AND  TICKMARKS 


XDUM 

XDUM 

YDUM 

YDUM 

CALL 


1 ) -XORIG 

2) — XMAX 

1, 


-WMAX 
2)— WMAX 

__  CURVE(XDUM. YDUM. 2,0) 

IF  (NY.GT .8. ANO . (NSRF . EQ . 6 .OR .NSRF . EQ. 12.OR.NSRF. EQ. 18) )  GOTO  508 
NTIK— NINT ( (XMAX— XORIG)/XSTP) 

YDUM( 1 )— WMAX 

YDUM ( 2 ) -WMAX- ( WMAX-WOR IG)/50.0 
XDt*>XORlG 

DO  567  ITK-1 .NTIK-1 
XDM-XDM+XSTP 


XOUM 

XDUM 


m 


XDM 

XDM 


567 

568 


569 


CALL  CURVE (XDUM, YDUM, 2.0) 

CONTINUE 

CONTINUE 

XDUM( 1 )— XMAX 

XDUMc 21-XMAX 

YDUMi 1 )— WMAX 

YDUM (2) -WORIG 

CALL  CURVE (XDUM. YDUM, 2,0) 

NT I K— N INT ( (WMAX— WOR I G )/WSTP) 
XDUM  < 1 ) -XMAX- ( XMAX-XOR I G ) / 50 . 0 
XDUM(2 1-XMAX 
YOM-WOR I G 

DO  569  ITK-1, NT  IK-1 
YOM-YOM+WSTP 
YDUM( 1 )»YDM 
YDUM< 2 i-YDM 

CA  L  L ' CURVE ( XDUM , YDUM , 2 , 0 ) 
CONTINUE 


C 

C  -  ORAW  CROSS  SECTION  CURVES 
NPOINTS— NY 
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CALL  CURVE(XX,SECTN.NP0INTS,8) 

CALL  OASH 

CALL  CURVE(XX.SECTI .NP0INTS.8) 

CALL  RESET (’OASH1) 

C 

C  -  AXIS  AND  LABEL  FOR  FFT  COORDINATE 

IF  (NY. GT. 8. AND . (NSRF. EQ. 6 .OR . NSRF. EQ. 12.0R.NSRF. EQ. 18) ) 
1  CALL  XISFFT( ’ X ’ ,WORIG ,WMAX) 

C 

C  -  ENO  AMPLITUDE  SECTIONS 
CALL  ENDPL(e) 

598  CONTINUE 
RETURN 
END 


SUBROUTINE  NYSX IS (VEC . NPOI NTS . NECLEC . VECBOT . VECGAP . VECTOP) 

This  subroutine  was  written  by  Godshartf  Hitfsr  (3/87).  It  finds 
'nice*  end-values  (vscbot , vsctop)  and  intervals  (vecgap)  for 
linear  coordinate  axes. 

The  subroutine  can  find  such  values  around  the  extresias  of  the 
argument  veC  and/or  around  the  Input  valuem  of  the  arguments  vscbot 
and  vectop.  This  is  determined  by  the  argument  necvec.  If 

neeveC  — 1  then  the  input  vector  veC  is  neglected  and 

’nice*  limits  and  interval  are  only  based  on 
the  current  values  of  vscbot  and  vectop.  If 
nscvsC  “  9  then  vocbot  ond  vsctop  are  also  incorporated 
in  the  search  for  the  extrema  of  vec, 
thereby  allowing  user  controled  lower 
limits  for  these  extrema.  If 
neeveC  -  1  then  current  values  of  vscbot  and  vsctop  are 
neclected  and  ’nice’  limits  and  interval 
based  on  the  npolnts  values  in  veC  alone. 

It  is  also  possible  to  ’hard-wire’  the  lower  (upper)  end-value  to 
the  current  value  of  vscbot  (vectop)  by  setting  the  argument  vecgap 
to  -1.8  (l.8)  as  input.  If  vectop-2.8  on  input  both  end  values  are 
'hard-wl red’ . 

The  subroutine  finds  the  extrema  of  the  input  data.  Then  it 
determines  ths  largest  Integral  power  of  ten  (xtrpow)  that  is  still 
smaller  than  the  larger  of  the  absolute  values  of  the  extrema. 

Based  on  xtrpow  the  leading  two  decimal  places  of  the  extrema  are 
compared  with  each  other.  The  possible  difference  in  the  leading 
decimal  places  the  extrema  belong  to  one  of  seven  interval  classes 
with  the  following  interval  sizes:  8.885,  8.85,  8.1,  8.2,  8.5,  1.8, 
2.8  times  xtrpow.  The  extremal  values  are  one  Interval  beyond  the 
integer  that  is  closest  to  the  extrema.  If  the  hard-wiring  option 
was  chossn  the  hard-wired  end  value  is  reinstatsd  before  the 
interval  ond  end  values  are  returned  to  the  calling  routine. 

— vor i ob I es — 

mantdif  -  difference  in  integral  mantissa  of  extrema 

mantlw  -  lower  extremum  integral  mantissa 

mantup  ”  upper  extremum  integral  mantissa 

nechrd  ■  hard-wiring  flag 

neeveC  -  flag  that  picks  input  data 

npoints  -  number  of  elements  to  be  considered  in  dato  vector  vec 
vcevnl  ■  even  lower  extremum  guide 
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C 

C 

C 

C 

C 

C 

C 
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C 

C 

C 

C 

C 
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vctvnu 

vchdbt 

vchdtp 

vemnt I 

vcmrttu 

veC  - 

vecbot 


vecgap 
vecmax 
vecmi n 
vectop 
x t  rpow 
xt  rpwl 
xt  rpwu 


-  even  upper  extremum  guide 

■  hard— wired  bottom  value 

■  hard— wired  top  value 

-  tower  extremum  divided  by  dominant  power  of  10 

-  upper  extremum  divided  by  dominant  power  of  10 
data  vector 

-  data  minimum  and  returns  'nice*  lower  value 

-  hard  wiring  flag  on  Input;  ‘nice’  interval  on  output 
“  upper  data  extremum 

“  lower  data  extremum 

-  data  maximum  and  returns  ’nice*  upper  value 

-  dominant  power  of  10 

“  next  integral  power  of  10  below  lower  extremum 

-  next  integral  power  of  10  below  upper  extremum 


PARAMETER  (NT-256 , NY-128 , NTPY-NT+NY) 
DIMENSION  VEC(NTPY) 


STORE  INPUT  VALUES 
VCHDBT-VECBOT 
VCHOTP-VECTOP 
NECHRD— N I NT ( 1 00 . 0« VECCAP ) 


C  -  CORRECT  OR  RETURN  UPON  ERRONEUS  INPUT 

IF  (NECHRD. NE. -100. AND. NECHRD. NE. 100. AND. NECHRD. NE. 200)  NECHRD— 0 
IF  (NECLEC.NE.-1 . AND . NECLEC . NE. 0 . AND . NECLEC . NE. 1)  THEN 

WRITE  (59.*)  ’note:  NECLEC  IN  SUBROUTINE  NYSXIS  OUT  OF  RANGE’ 
RETURN 
ENDIF 

IF  (NECLEC. LT.1 .AND. VECBOT .GE. VECTOP)  THEN 

WRITE  (59..)  ’note:  VECBOT  IS  GREATER  THAN  OR  EQUAL  TO  VECTOP 
1  IN  NYSXIS’ 

VECBOT— AM I N 1 (VECBOT . VECTOP ) 

VECTOP— AMAX1 (VECBOT .VECTOP) 

ENDIF 


810 


820 


C  -  FIND  EXTREMA 

NECLEC— NECLEC+2 
GO  TO  (810.820.830)  NECLEC 
CONTINUE 
VECMIN-VECBOT 
VECMAX— VECTOP 
GO  TO  840 
CONTINUE 

VECMIN-VEC(ISMIN(NPOINTS.VEC, 1)) 

IF  ( NECHRD. EQ. -100. OR. NECHRD. EQ. 200. AND. VECMI N. LT. VECBOT)  THEN 
WRITE  (59. •)  ’warning:  FUNCTION  EXTENDS  BELOW  AXIS’ 

ENDIF 

VECMAX-VEC ( I SMAX ( NPO I NTS . VEC . 1 ) ) 

IF  (NECHRD. EQ. 100. OR. NECHRD. EQ. 200. AND. VECMAX. GT. VECTOP)  THEN 
WRITE  (59,*)  'warning:  FUNCTION  EXTENDS  ABOVE  AXIS’ 

ENDIF 

VECM I N-AM I N 1 ( VECM IN, VECBOT) 

VECMAX-AMAX1 (VECMAX .VECTOP) 

GO  TO  840 
CONTINUE 

VECMIN— VEC( ISMIN(NPOINTS, VEC , 1 )) 

VECMAX-VEC (I SMAX (NPO I NTS. VEC, 1)) 

CONTINUE 


830 


840 


C  -  CONSIDER  HARDWIRED  VALUES  AS  EXTREMA 
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IF  (NECHRD. EO.-100)  THEN 

VECMIN-AMIN1 (VECBOT . VECMIN) 
ELSE  IF  (NECHRO . EQ. 1 00)  THEN 
VECMAX-AMAX1 (V EC TOP .VECMAX) 
ELSE  IF  (NECHRD. EQ. 200)  THEN 
VECMI N-AM INI (VECBOT , VECMIN) 
VECMAX-AMAX1 (VECTOP. VECMAX) 
END  IF 


FIND  DOMINANT  INTEGRAL  POWER  OF  TEN  FOR  THE  EXTREMA 
RCUT-1 . 0E-35 

IF  (ABS(VECMAX) .GT.RCUT)  THEN 
CALL  POWBAS( VECMAX. XTRPWU) 

IF  (ABS(VECMIN) .GT.RCUT)  THEN 
CALL  P0W8AS( VECMIN, XTRPWL) 

XTRPOW-MAX (XTRPWU . XTRPWL ) 

ELSE 

XTRPOW-XTRPWU 
END  IF 
ELSE 

CALL  POWBAS ( V ECM I N , XTRPOW ) 

END  IF 


FIND  MANTISSA  OF  THE  EXTREMA 
VCMNTU-VECMAX/XTRPOW 
VCMNT  L-VECM I N/XTRPOW 


CONSTANTS  OR  EXTREMA  THAT  DIFFER  BY  LESS  THAN  ONE  IN  THE 
THIRD  SIGNIFICANT  PLACE 

IF  (ABS(VCMNTU-VCMNTL) . LE.0.01 )  THEN 
VCEVNU-0.01*(NlNT(iee.0«VCMNTU)+l) 

VCEVNL-0. 01 •(NINT(100.0.VCMNTl)-i) 


VECGAP-0 . 005«XTRPOW 
GO  TO  880 
END  IF 


I00.0*VCMNTL) 


MAKE  INTEGER  OUT  OF  THE  LEADING  TWO  SIGNIFICANT  PLACES 
MANTUP-N INT (10. 0* VCMNTU) 

MANT LW-N I NT ( 1 0 . 0* VCMNT L ) 

MANTD I F-ABS (MANTUP-MANT LW) 


EXTREMA  DIFFER  BY  LESS  THAN  2  PERCENT 
IF  (MANTDIF.LT. 2)  THEN 

VCEVNU-0.05*(INT(NINT(10O.0*VCMNTU)/5)+1) 
VCEVNL-0. 05*(INT(NINT(100.0*VCMNTL)/5)-i) 
VECGAP-0. 05 »XTRPOW 


EXTREMA  DIFFER  BY  LESS  THAN  10  PERCENT 
ELSE  IF  (MANTDIF.LT. 10)  THEN 
VCEVNU— 0 . 1 • (MANTUP+1 ) 

VCEVNL-0 . 1 • (MANTLW— 1 ) 

VECGAP-0 . 1 *XTRPOW 


EXTREMA  DIFFER  BY  LESS  THAN  20  PERCENT 
ELSE  IF  (MANTDIF.LT. 20)  THEN 
VCEVNU— 0 . 2* ( INT(MANTUP/2)+1 ) 
VCEVNL-0 . 2«( INT(MANTLW/2)-1 ) 
VECGAP-0. 2 *XTRPOW 


EXTREMA  DIFFER  BY  LESS  THAN  50  PERCENT 
ELSE  IF  (MANTDIF. LT.50)  THEN 
VCEVNU— 0 . 5» ( INT(MANTUP/5)+1 ) 
VCEVNL-0. 5«(INT(MANTLW/5)-l) 
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VECGAP-0 . 5«XTRP0W 


EXTREMA  DIFFER  BY  LESS  THAN  100  PERCENT 
ELSE  IF  (MANTDIF.LT. 100)  THEN 
VCEVNU-1 . 0»( INT (MANTUP/ 1 0)+1 ) 
VCEVNL-1  .0«(  INT(MANTLW/10)-1  ) 
VECGAP-XTRPOW 


EXTREMA  OIFFER  BY  MORE  THAN  100  PERCENT  (E.G.  OPPOSITE  SIGN) 
ELSE 

VCEVNU-2.0*(INT(MANTUP/20)+1) 

VCEVNL-2.O«(INT(MANTLW/20)-l) 

VECGAP-2.0.XTRPOW 
END  IF 

)  CONTINUE 


HARD-WIRED  LOWER  END  VALUE 
IF  (NECHRO. EQ.-100)  THEN 
VECTOP— VCEVNU*XTRPOW 


NO  HARD-WIRED  END  VALUE 

ELSE  IF  ( NECHRO. EQ.0)  THEN 
VECTOP-VCEVNU»XTRPOW 
VECBOT-VCEVNL«XTRPOW 


HARD-WIRED  UPPER  END  VALUE 
ELSE  IF  (NECHRO. EQ. 100)  THEN 
VEC80T-VCEVNL»XTRP0W 
END  IF 
RETURN 
END 


SUBROUTINE  POWBAS(VARBLE.PWDECN) 


This  subroutine  was  written  by  Godehard  Hi  I  for  (3/87).  It  deterwines 
the  nest  lower  integral  power  of  10,  pwdecn,  of  the  quantity  varbie. 
If  varbie  vanishes  pwdecn  returns  1.0. 


RCUT-1 . 0E-35 
VABS-ABS(VARBLE) 

IF  (VA8S.GT.RCUt)  GO  TO  10 

PWOECN-1 .0E-30 

RETURN 

CONTINUE 

XPLOOALOG10(VABS) 


PWDECN-10.0*»INT(XPLOG) 

IF  (XPLOG.LT.0.0)  PWDECN-PWDECN/10. 

RETURN 

END 


MANUAL 


RAMAN  AMPLIFIER  CODE  RAM2D1 
AND 

ASSOCIATED  DIAGNOSTIC  PROGRAM  PRAMl 


INTRODUCTION . 132 

CHAPTER  I:  GETTING  STARTED  . 134 

Part  l.A  Computer  Access  /  LOGIN . 134 

I.A.l:  Telephone  Access  . 134 

I. A. 2:  Hardwired  Terminal  Access  . 135 

I. A. 3:  Building  A68  Access  . 135 

I.A.4:  Dec-Server  . 136 

I. A. 5:  VAX  Login  . 136 

I.A.6:  VAX  Logout  . 137 

I.A.7:  CRAY  Login/Logout  . 137 

Part  I.B  File  Management  . 137 

I.B.l:  Names  of  the  Game  . 137 

I.B. 1.1  Code  File  Names  in  VAX/VMS  . 137 

I.B. 1.2  Relevant  Groups  of  Files  . 138 

I.B. 1.3  Modes  of  Operation  and  Encryption  of  Dimensions  . 139 

I.B. 1.4  Names  of  Adjunct  Files  on  the  VAX  Computer . 139  • 

I.B. 1.5  CRAY  Dataset  Names  . 141 

I.B. 2:  Obtaining  the  Necessary  Files  . 143 

I.B. 3:  Editing  Files  . 145 

I.B. 3.1  EDT  Screen  Editor  . 145 

I.B. 3. 2  TEDI  Line  Editor  . 148 


I.B.4:  Directories  /  Delete  /  Purge 


150 


li 


L 


s 

r 


I.B.4.1  VAX 


I.B.4. 2  CRAY  . 151 

I.B.5:  Running  a  Batch  Job . 152 

I.B.5.1  The  Batch  Job  Command  File  . 152 

I.B.5. 2  Submitting  a  Batch  Job . 153 

I.B.5. 3  Batch  Job  Execution  and  Termination  . 154 

I.B.5.4  VAX  Job  Interruption . 155 


CHAPTER  II:  RUNNING  RAM2D1  AND  PRAM1  . 156 


CHAPTER  III:  VIEWING  THE  RESULTS  . 158 


Part  III. A  Terminal  Output  . 158 

Part  III.B  Hardcopies  . 159 

III.B.l:  Printed  Graphs . 159 

III.B. 2:  Printed  ASCII-Files . 160 


CHAPTER  IV:  SUSTAINING  OPERATIONS  . 162 


Part  IV. A  File  Storage 


IV.A.l:  VAX  Disk  . 162 

IV.A.2:  VAX  Tape  . 163 

IV.A.3:  CRAY  Disk  . 164 

IV.A.4:  CRAY  Tape  . 164 

Part  IV. B  Operator  Relief . 165 

IV.B.l:  Login  Command  File  . 165 

IV.B.2:  Edit-Aid  . 167 

IV.B.3:  VAX/CRAY  Status . 168 

IV.B.4:  CRAY  Grease  . 168 

IV.B.5:  Money  Savers . 171 


•raw? 


Part  IV.C  Trouble  Shooting 


171 


Part  IV.D  CRAY  Run  Specifications  . 173 

APPENDICES  . 175 

APPENDIX  A  1-D  Transient  Limit;  Examples . 175 

EXAMPLE  A1  . 175 

EXAMPLE  A2  . 191 

APPENDIX  B  1-D  Stationary  Limit;  Examples . 214 

EXAMPLE  B1  . 214 

EXAMPLE  B2  . 229 

APPENDIX  C  2-D  Operation;  Examples  . 248 

EXAMPLE  C  . 248 

APPENDIX  D  Special  Versions  of  the  Codes  . 269 


INTRODUCTION 


The  manual  at  hand  is  intended  to  introduce  the  reader  to  the  use  of  the  (2+1)- 
dimensional  Raman  amplifier  code  RAM2D1  and  the  accompanying  diagnostic  program 
PRAMl  as  installed  on  the  CRAY  X-MP  241  computer  of  the  Central  Computing 
Facility  (CCF)  of  the  U.S.  Naval  Research  Laboratory  (NRL). 

Both  programs  are  written  in  CRAY-FORTRAN  (CFT)  and  run  under  the  CRAY 
operating  system  (COS).  The  computational  setup  at  NRL  favors  batch  job  operation. 
In  this  mode,  the  user  does  not  interact  directly  with  the  CRAY  computer  while  work¬ 
ing  with  RAM2D1  or  PRAMl.  Four  Digital  Equipment  Corporation  (DEC)  VAX2 
computers  (called  NRL1,  NRL2,  NRL3,  NRL4)  process  independently  and  simultane¬ 
ously  the  requests  of  all  users  for  communication,  editing,  storage,  etc.  Any  of  the 
four  machines  can  be  used  interchangeably.  Due  to  size  and  speed  requirements  most 
computations  when  using  RAM2D1  and  PRAMl  are  done  on  the  CRAY  computer. 
Presently  the  only  computational  use  of  the  VAXes  is  the  post  processing  of  the  graph¬ 
ics  data  files  that  are  generated  by  PRAMl.  These  data  files  contain  device  independent 
graphics  data  which  he  VAX  software  converts  into  data  that  can  be  displayed  on  a 
VT240-type  terminal  or  a  laser  printer.  All  other  computing  is  done  on  the  CRAY. 

Data  storage  is  available4  separately  both  on  the  CRAY  and  on  the  VAX  com¬ 
puters.  Both  primarily  utilize  quickly  accessable  hard  disk  storage  devices.  However, 
both  locations  offer  also  the  more  economical  long  term  tape  storage  option.  All  files 
(datasets)  in  memory  during  computation  on  the  CRAY  computer  are  volatile.  That 
means  that  a  computational  process  has  to  be  given  explicitly  all  the  necessary  datasets 
and  the  results  have  to  be  retrieved  explicitly  from  it;  otherwise, 1  the  datasets  disappear 
upon  completion  of  the  job.  The  resulting  data  can  be  sent  to  the  VAX  for  storage  or 
can  be  stored  on  devices  that  are  reserved  for  CRAY  use  only. 

The  data  files  resulting  from  the  execution  of  RAM2D1  are  programmed  to  be 
stored  on  the  CRAY  tape  storage  device  (=  off-line;  CRAY  disk  =  on-  line).  The 
code  PRAMl  uses  these  data  to  produce  a  DISSPLA-META3  file  which  is  the  device 
independent  data  file  mentioned  above.  A  batch  job  command  transfers  this  file  to  the 
VAX  computer  post  morten  of  PRAMl  for  storage  and/or  post-processing.  Through 
the  VAX,  the  data  can  be  displayed  or  printed. 

The  remainder  of  this  manual  contains  explicit  instructions  and  examples  pertain¬ 
ing  to  the  use  of  the  computers  and  the  programs  RAM2dl  and  PRAMl  so  that  the 
user  can,  with  a  particular  input  parameter  choice  in  hand,  run  the  codes  and  carry 
the  results  home  on  paper. 


1  CRAY  X-MP  (and  other  CRAY  logos)  is  a  registered  trademark  of  CRAY  Re¬ 
search,  Incorporated,  Mendota  Heights,  MN. 

2  VAX,  DEC,  and  others  are  registered  trademarks  of  the  Digital  Equipment  Cor¬ 
poration,  Maynard,  MA. 

3  DISSPLA  is  a  registered  trademark  of  the  Integrated  Software  Systems  Corpora¬ 
tion,  San  Diego,  CA. 


CHAPTER  I 

GETTING  STARTED 

PART  1.A  COMPUTER  ACCESS  /  LOGIN 
Section  I.A.l:  Telephone  Access 

For  remote  access,  by  means  of  a  personal  computer  and  the  telephone  network, 
find  appropriate  communications  software  (e.g.  VTEK,  KERMIT,  or  other)  to  dial 
Washington,  D.C.,  metropolitan  area  phone  number  767-2000  for  a  1200  baud  connec¬ 
tion  to  the  Naval  Research  Laboratory  Central  Computing  Facility  (NRL  CCF).  For  a 
2400  baud  connection  dial  the  number  767-  1240. 

Should  you  have  problems  call  767-3512  for  a  status  information  on  the  CCF,  or 
call  the  consultants  desk  767-3542  for  assistance  Mondays  through  Fridays  from  9am 
to  5pm. 

After  the  connection  is  made  type:  <  (carriage  return) 

< 


two  or  more  carriage  returns  until  the  computer  prompts:  #  From  here  proceed  to 
section  I. A. 4:  DEC-server. 


Section  I.A.2:  Hardwired  Terminal  Access 

Access  through  one  of  the  terminals  at  the  CCF  is  obtained  in  the  following  way: 
Turn  the  power  on. 
type:  <  (return) 

prompts:  You  may  now  enter  Net/One  commands 

> 

> 

type:  c  cts  < 

prompts:  connecting  . . .  (1)  - success 

# 

From  here  proceed  to  section  I.A.4:  DEC-server. 

Section  I.A.3:  Building  A68  Access 

The  terminals  in  building  A68  at  NRL  (John  Reintjes’  section)  are  connected  to 
the  communications  server  CS/200T  which  in  turn  is  hardwired  directly  to  the  front- 
end  VAX  computers.  Thereby  the  DEC-server  involved  in  all  other  access  paths  is 
circumvented.  Proceed  as  follows:  Turn  the  power  on. 
type:  <  (return) 

prompts:  CS/200T> 

type:  c  nrl  < 

which  will  establish  connection  to  NRL3  (alternatively  type:  c  nrll  <,  or  c  nrl2  <, 

or  c  nrl3  <).  From  here  proceed  to  section  I.A.5:  VAX  login.  In  building  A68  NRL4 

can  only  be  accessed  through  the  DEC-server.  For  that,  turn  the  power  switch  of  the 

terminal  to  ON 

type:  <  (return) 

prompts:  CS/200T> 

type:  c  lat-gw  < 

prompts:  Querying  Primary  Name  Server... 

Connecting...  session  1  —  connected  to  lat-gw 
type:  < 

prompts:  Local  > 

which  indicates  successful  access  to  the  DEC-server.  From  here  continue  with  what 
follows  the  prompt  Local>  in  section  I.A.4:  DEC-server  below. 


Section  I.A.4:  Dec-Server 

When  the  computer 
prompts:  # 

type:  n  <  (Note:  the  letter  n  will  not  show  up  on  the  screen!) 

prompts:  Enter  username > 

type:  ’your  username*  <  (=name  under  which  you  may  use  the  VAXes) 

prompts:  Local> 

Now  you  have  accessed  the  so-called  DEC-server.  (type:  help  <  if  you  wish  on-line 
information  about  this  networking  facility;  otherwise:) 
type:  c  nrl  < 

to  be  connected  with  one  of  the  four  VAX  front-end  computers.  You  may  explicitly 
specify  the  VAX  or  your  choice  (e.g.  c  nrl3  <  ,  to  get  onto  the  NRL3  computer  etc.). 
A  standard  VAX-login  ensues.  Proceed  to  section  I.A.5:  VAX  Login. 

Section  I.A.5:  VAX  Login 

The  last  pressing  of  the  return  key  should  effect  that  the  system 
prompts:  Username : 

whereupon  it  is  necessary  to 
type:  ’your  username'  < 

prompts:  Password : 

type:  ’your  password'  <  (will  not  echo) 

Then  the  VAX  computer  executes  the  login  which  will  be  finished  when  a  $-sign 
appears  on  a  line  by  itself  following  all  other  text  on  the  screen. 

From  here  proceed  to  Section  I.B.2:  Obtaining  the  Necessary  Files,  if  you  do  not 
have  them;  or  continue  with  Section  I.B.3:  Editing  Files,  if  you  do  have  all  the  files  but 
need  to  change  something;  or  turn  to  Chapter  II,  if  you  have  the  correct  set  of  files  for 
the  intended  simulation,  or,  if  the  simulation  was  previously  done  and  the  results  need 
to  be  converted  into  graphs;  or  Chapter  III,  Viewing  the  Results,  to  see  the  graphs 
actually  come  out  on  the  terminal  screen  or  on  paper;  or  turn  to  Part  IV. A.,  File 
Storage,  if  programs  or  data  need  to  be  moved  into  storage  or  removed  from  it. 


Section  I.A.6:  VAX  Logout 

To  leave  the  computer  system  one  has  to  logout.  This  procedure  terminates  all 
access  to  and  responses  from  the  computer.  To  logout 
type:  log  < 

which,  e.g., 

prompts:  USER  logged  out  at  d-a-t-e  t:i:m:e 

Local  -  Session  x  disconnected  from  NRL 
Local> 

This  is  the  prompt  of  the  DEC-server  network  node.  A  second  LOG  is  necessary  to 
signoff  from  it  and  to  free  the  port  of  access.  Thus, 
type:  log  < 

which  will  be  acknowledged  by  telling  from  which  port  was  logged  off.  In  all  it  takes 
two  log  to  finish  the  computing  session.  The  second  log  is  not  necessary  but  neither 
harmful  when  using  the  building  A68  communication  server  CS/200T.  After  that  the 
terminal  is  disconnected  from  the  CCF. 

If  the  front-end  VAXes  do  not  obtain  new  input  from  the  terminal  within  roughly 
8  minutes,  a  ten  minute  countdown  associated  with  two  warnings,  5  minutes  apart, 
ensues  followed  by  an  automatic  logout  of  the  inactive  user. 

Section  I. A. 7:  CRAY  Login/Logout 

Access  of  the  batch  job  to  the  CRAY  is  authorized  by  means  of  the  first  two  batch 

job  file  command  lines:  'JOB, - .  *  and  ’ACCOUNT, - .  *  (see  also  subsection  I. B. 5.1: 

The  Batch  Job  Command  File).  Access  to  the  CRAY  computer  and  its  storage  facilities 
is  limited  to  the  command  lines  in  the  batch  job  command  file. 

PART  I.B  FILE  MANAGEMENT 

Section  I.B.l:  Names  of  the  Game 

I.B. 1.1  Code  File  Names  in  VAX/VMS 

The  nomenclature  of  all  relevant  files  is  as  follows.  The  names  of  the  source  codes 
as  indicated  above,  are  RAM2D1  and  PRAMl.  The  name  RAM-2D-  1  abbreviates 
that  this  code  solves  the  Raman  amplification  problem  in  2-D.  i.e.,  the  two  spatial 


dimensions:  z  (linear  coordinate  along  the  central  Stokes  beam  ray  path)  and  y  (lin¬ 
ear  coordinate  orthogonally  transverse  to  z).  The  character  1  in  the  name  indicates 
that  this  is  the  first  generation  of  this  code.  The  diagnostic  program  name  P-RAM-1 
abbreviates:  plots  of  the  Raman  amplifier  code,  1st  generation. 

Both  source  codes  reside  on  the  VAX  computers.  Following  the  VAX/ VMS  oper¬ 
ating  system  particulars,  their  full  VAX-file  names  are: 

DUA107:(HILFER.FOR]RAM2D1C.FOR;1 

DUA107:[HILFER.FOR]PRAM1CD.FOR;1. 

According  to  VAX/ VMS  conventions  the  name  elements  and  their  meanings  are: 
DUA107:  indicates  the  specific  storage  disk  name  on  which  the  file  is  stored.  [HIL- 
FER.FOR]  indicates  that  the  file  belongs  to  the  subdirectory  FOR  of  the  HILFER 
directory  of  files  on  that  disk.  The  code  name  RAM2D1  was  supplemented  by  suffix  C 
to  indicate  version  C  of  the  code  (see  Appendix  D  for  details  and  other  versions).  The 
arbitrarily  chosen  file  extension  .FOR  is  a  reminder  that  the  file  contains  a  FORTRAN 
code.  The  file  version  ;1  is  a  number  that  serves  the  VAX  computer  to  distinguish 
files  of  the  same  name.  Every  time  the  file  is  amended  or  changed,  the  VAX  computer 
will  keep  the  old  file  with  its  full  old  name  and  will  create  a  new  file  with  amendments 
and/or  changes  that  will  be  given  the  same  name  but  a  version  number  one  greater  than 
that  of  the  old  file.  Therefore,  the  highest  version  number  indicates  the  most  up-to-date 
version  of  the  same  file.  The  characters  CD  in  PRAM1CD  indicate  that  this  version  of 
PRAMl  works  with  RAM2D1C  amd  RAM2D1D  (i.e.  on  the  NRL-CRAY,  as  opposed  to 
PRAM1AB,  which  works  with  RAM2D1A  and  RAM2D1B  on  the  NMFECC-CRAYs). 

All  relevant  files  are  stored  by  default  in  the  same  directory  on  the  same  disk. 
Hence,  the  file  name  portion  DUA107:[HILFER.FOR]  is  the  same  for  all  files  and  will 
be  dropped  in  this  manual  for  brevity’s  sake.  Since  the  version  number  may  be  larger 
than  1  depending  on,  amd  only  significant  for,  code  development,  the  user  can  neglect 
it  and  it  will  be  dropped  also.  Thus,  the  code  names  reduce  to,  simply, 

RAM2D1C.FOR 

PRAM1CD.FOR 

I.B.1.2  Relevant  Groups  of  Files 

The  relevant  files  can  be  grouped  by  their  file  name  extensions  (i.e.,  three  charac¬ 
ters  following  the  dot  in  the  full  file  name  analogous  to  what  was  described  in  subsection 
I.B.1.1:  Code  File  Names  in  VAX/VMS).  There  are  the  following  groups: 


.FOR  (the  2  source  code  files  mentioned  in  subsection  I.B.l.l) 

.DAT  (input  and  output  data  files) 

.JOB  (batch  job  command  files  containing  the  user’s  commands  for  the  CRAY  com¬ 
puter) 

.CPR  (message  files  generated  by  the  CRAY  computer  system  during  job  execution 
containing  listings,  messages,  and  a  batch  job  log) 

.MSG  (message  files  generated  by  the  FORTRAN  code  during  job  execution  contain¬ 
ing  formated  and  unformated  output  as  programmed  by  the  code  developers.) 

.TMP  (device  specific  graphics  data  files  that  can  be  printed  on  the  laser  printer) 

LB. 1.8  Modes  of  Operation  and  Encryption  of  Dimensions 

The  code’s  operation  as  a  two-dimensional  or  one-dimensional  model  is  switched  by 
the  field  array  dimension  parameters  NT  and  NY.  If  both  integers  are  larger  than  eight, 
two-dimensional  operation  is  indicated  and  the  algorithm  expects  that  the  parameters 
are  set  to  integral  powers  of  2.  If  one  of  the  parameters  is  8  or  smaller,  the  variable  (t 
or  y)  associated  with  that  parameter  ceases  to  be  a  variable,  and  refers  instead  to  the 
number  of  cases  being  run  in  the  one  dimesional  mode.  Both  NT  and  NY  must  never  be 
8  or  less  simultaneously. 

In  short,  the  values  of  NT  and  NY  are  salient  characteristics  of  any  simulation 
and  serve,  therefore,  to  distinguish  data  files  and  code  versions  by  contributing  two 
characters  to  every  file  name.  The  first  of  both  characters  indicates  the  value  of  NT,  the 
second  that  of  NY  according  to  the  following  scheme.  If  the  value  is  8  or  less,  that  value 
is  used  as  one  file  name  character.  The  one  (or  both)  parameter(s)  that  is  larger  than 
8,  which  must  be  an  integral  power  n  of  2,  is  represented  by  the  n-th  character  of  the 
alphabet.  For  example,  if  NTa5  and  NY*1024*210,  one  finds  the  character  5  followed 
by  the  tenth  character  of  the  alphabet  (=J)  as  a  two  character  block  (--5J-- . --),  in 
ail  relevant  file  names.  For  a  list  of  typical  encrypted  dimensions  and  their  NT  x  NY 
equivalence,  see  the  table  in  section  V.D.2. 

LB. 1.4  Names  of  Adjunct  Files  on  the  VAX  Computer 

The  other  relevant  files  that  reside  on  the  VAX  besides  the  FORTRAN  source 
codes  are  data  files,  message  files  and  batch  job  command  files. 


INPUT  DATA  FILE 


The  input  data  files  can  be  distinguished  by  a  file  name  beginning  with  the  char¬ 
acter  N  followed  by  three  more  characters  and  ending  with  the  extension  .DAT.  E.g. 

NR1J.DAT 

NPGI.DAT 

The  second  file  name  character  is  either  R,  if  this  is  an  input  data  file  for  RAM2D1, 
or  P,  if  this  is  an  input  data  file  for  PRAMl.  The  third  and  fourth  character  are  the  two 
character  block  that  contains  the  values  of  the  code  parameters  NT  and  NY  encrypted 
as  described  in  subsection  I.B.1.3  . 

GRAPHICS  DATA  FILES 

There  can  be  two  types  of  output  data  files  on  the  VAX.  One  is  the  so-called 
META-file  by  the  name 

PLT2.DAT 

which  is  generated  by  the  DISSPLA-graphics  subroutines  in  PRAMl.  The  other  is  the 
data  file  that  the  DISSPLA-postprocessing  software  on  the  VAX  generates  with  the 
name 

INTSCRT.TMP 

when  the  graphs  in  PLT2.DAT  are  requested  as  laser  printer  hardcopies.  It  is  the  duty 
of  the  user  to  find  a  means  of  distinction  for  these  equally  named  output  data  files 
from  a  series  of  simulations.  It  is  suggested  to  rename  these  files  mnemonically.  This 
is  easily  done  by  the  VAX  command  RENAME, 
type:  RENAME  PLT2.DAT  ’new  file  name’ 

following  the  VAX-prompt  $. 

MESSAGES  FILES 

Two  types  of  message  files  can  be  found  in  the  VAX  user  directory.  Except  for  a 
varying  file  extensions,  these  files  have  the  same  name  as  the  batch  job  command  file 
(see  next  paragraph)  from  which  they  originated.  There  are  MSG-files.  One  such  file 
is  created  if  a  code  generates  output  due  to  formatted  and/or  unformatted  write  state¬ 
ments.  These  statements  constitute  the  sole  content  of  this  file.  The  file  is  identified 
by  its  .MSG  file  extension.  For  example, 

CRlJ.MSG 

XPGI.MSG 
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Secondly,  there  are  CPR-files  one  of  which  is  generated  by  the  CRAY  computer 
every  time  a  job  is  run.  For  example, 

CR1J.CPR 

XPGI.CPR 

These  files  document  the  batch  job  execution  by  recording  information  such  as: 
program  listing,  error  messages  from  the  CRAY  operating  system  and  the  CRAY  com¬ 
piler  timing  information  regarding  batch  job  execution,  space  and  cost  information  and 
more  esoteric  information  relating  to  the  CRAY  computer  usage. 

JOB  FILES 

The  batch  job  command  files  have  a  name  similar  to  the  input  data  files.  The  only 
two  differences  being  the  .JOB  file  extension  instead  of  .DAT,  and  the  initial  letter 
being  C  or  X  instead  of  N.  For  example, 

CR1J.JOB 

XR1J.JOB 

CP1J.JOB 

XP1J.JOB 

A  first  letter  X  indicates  a  job  file  that  executes  the  code  associated  with  it  (see 
second  letter  of  job  file  name:  R  for  RAM2D1,  P  for  PR  AMI).  A  first  letter  C  indicates 
a  job  file  that  will  first  compile  and  assemble  the  source  code  before  running  the  newly 
created  executable  file. 

All  file  names  mentioned  above  apply  to  the  VAX  directory  of  files  [HILFER.FOR]. 
When  a  batch  job  fetches  a  file  (source  code  or  input  data  file)  from  VAX  storage  and 
transfers  it  to  the  CRAY  during  job  execution,  the  VAX  name  (specified  by  TEXT=’-- 
-  ’  on  the  FETCH  command  line  in  the  job  file)  is  changed  to  a  CRAY  dataset  name 
(as  given  by  DN= '  —  ’  on  the  same  FETCH  command  line). 

LB. 1.5  CRAY  Dataset  Names 
SOURCE  CODE 

The  source  codes  have  a  three  character  dataset  name  when  used  on  the  CRAY 
computer.  The  first  character  is  R  (or  P)  for  RAM2D1  (or  PRAMl).  The  second  and 
third  character  give  the  NT  and  NY  parameter  values  as  described  in  subsection  I.B.1.3. 
For  example, 

RlJ  is  RAM2DI  on  the  CRAY  with.  NT=1,  NY=210 
PGI  is  PRAMl  on  the  CRAY  with.  NT=27,  NY=2° 
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Either  dataset  appears  on  the  CRAY  following  a  FETCH  command  line  in  a  C — 
.JOB  file  and  disappears  automatically  following  completion  of  the  job. 

EXECUTABLE  DATASET 

The  executable  dataset  resulting  from  compilation  of  either  source  code  is  usually 
kept  (SAVE  command  line  in  JOB-file)  under  the  same  dataset  name  as  its  parental 
source  code,  but  amended  by  a  preceeding  X.  For  example, 

XR1J 

XPGI 

INPUT  DATASET 

The  input  dataset  to  RAM2D1  following  a  FETCH  form  the  VAX  is  named 

NRAM, 

the  input  dataset  to  PRAM1  is  named 

NPRAM1 

on  the  CRAY  computer. 

OUTPUT  DATASET 

The  output  resulting  from  execution  of  RAM2D1  is  contained  in  a  single  CRAY 
dataset  when  running  the  code  one-dimensionally.  When  operating  the  code  two- 
dimensionally,  the  number  of  output  datasets  is  proportional  to  the  number  of 

z-locations  at  which  field  data  are  kept.  All  of  these  data  files  are  saved  automatically 
in  the  CRAY  off-line  storage  facility. ' 

All  output  dataset  names  begin  with  the  letter  F  followed  by  eight  alphanumeric 
characters  if  the  file  results  from  one-dimensional  code  operation,  and  followed  by 
eleven  alphanumeric  characters  if  the  file  results  from  two-dimensional  code  operation. 
The  second  and  third  character  in  these  dataset  names  are  the  two  character  block 
that  contains  the  values  of  the  code  parameters  NT  and  NY  encrypted  as  described  in 
subsection  I.B.1.3.  The  following  six  characters  contain  the  date  at  which  the  execution 
of  RAM2D1  began.  In  two-dimensional  operation  three  more  numerals  (a  counter)  are 
appended  to  this  same  name  which  number  the  individual  field  datasets  consecutively 
as  they  are  created.  For  example, 

F1J101587  (field  dataset  with  arrays  dimensioned  NT=1,  NY=210,  started  on 

October  15,  1987) 


FGI101587000  (field  datasets  with  arrays 

FGI101587001  dimensioned  NT=2a,  NY=29,  started 

FGI101587002  on  October  15,  1987,  at  different 
FGI101587003  z-values) 

This  counter  is  000  for  the  dataset  that  contains  the  list  of  setup  parameters 
and  initial  field  data.  Its  purpose  is  to  enable  the  user  to  view  output  data  with  the 
diagnostic  code  PRAMl  immediately  as  they  become  available  during  an  extensive 
run.  Such  concurrent  diagnosis  has  to  be  indicated  to  PRAMl  by  setting  its  input 
parameter  DONYET  to  0  (DONYET  should  be  1  during  regular  post  mortem  diagnosis). 

This  counter  is  001  for  the  dataset  that  contains  the  setup  parameters  (like  -000 
dataset),  the  field  data  at  ZVAL=0.0  (like  -000  dataset),  and  the  timing  information 
gathered  at  the  end  of  the  run  (unlike  -000  dataset).  This  counter  is  002  for  the 
dataset  that  contains  the  field  data  at  ZVAL=1*ZKEEP,  003  at  ZVAL=2*ZKEEP,  004  at 
ZVAL=3*ZKEEP,  etc. 

MESSAGE  DATASET 

User  defined  messages  (mostly  conditional  error  messages)  from  RAM2D1  (PRAMl) 
are  gathered  in  dataset  ERRM  (EPRM)  which  is  transferred  to  the  VAX  under  the 
name  of  the  current  JOB-file  but  with  the  file  extension  .MSG  .  The  other  message 
dataset  from  each  run,  the  CPR-file,  is  created  by  the  operating  system  and  not  ac- 
cessable  to  the  user  until  after  it  is  transferred  to  the  VAX  post  mortem  of  the  run. 

Section  I.B.2:  Obtaining  the  Necessary  Files 

Six  files  are  required  to  simulate  the  Raman  interaction  numerically.  These  are 
the  FORTRAN  source  codes 

RAM2D1  and 
PRAMl 

(see  subsection  I.B.1.1  for  full  VAX/VMS  file  names),  their  respective  input  data 

files 

NR--.DAT  and 
NP--.DAT, 

and  their  respective  batch  job  command  files 

CR--.JOB  and 
CP--. JOB. 


mm 


SWW! 


■ 


The  dashes  --  stand  for  the  particular  2-character  block  as  the  choice  of  dimen¬ 
sions,  described  in  subsection  I.B.1.3,  necessitates. 

Unless  the  user  has  immediate  access  (password)  to  the  [HILFER.FOR]-  subdirec¬ 
tory  it  will  be  necessary  to  copy  these  files  from  there  into  the  user’s  own  directory. 
The  VAX/VMS  copy  command  serves  this  purpose.  When  the  VAX 
prompts:  $ 

type:  COPY  DUA107: [HILFER.FOR] RAM2D 1C. FOR  *.*  < 

prompts:  $ 

(Should  an  error  message  appear,  e.g.  copy  protection  violation  or  insuf¬ 
ficient  privilege,  contact  the  CCF  consultants  desk  at  (202)767-3542  or  Godehard 
Hilfer  at  (202)767-2028). 

type:  COPY  DUA107: [HILFER. FOR] PRAM1CD. FOR  *.*  < 

prompts:  $ 

type:  COPY  DUA107:  [HILFER. FOR] NR— .DAT  *.*  < 

prompts:  $ 

type:  COPY  DUA107: [HILFER. FOR] NP-- .DAT  *.*  < 

prompts:  $ 

type:  COPY  DUA107 :  [HILFER. FOR] CR— .  JOB  ♦.*  < 

prompts:  $ 

type:  COPY  DUA107 :  [HILFER. FOR] CP— .  JOB  *.*  < 

prompts:  $ 

Now  all  necessary  files  are  in  the  user’s  current  directory.  From  this  directory  the 
batch  job  should  be  submitted  in  order  for  the  automatic  substitution  of  default  values 
for  user  disk,  default  directory  etc.  in  the  abbreviated  file  names  as  they  appear  in  the 
batch  job  command  file  to  work.  The  message  and  data  files  that  the  job  sheds  will  be 
send  to  this  directory  from  which  the  job  was  submitted. 

Once  the  dimensionality  of  the  intended  simulation  is  known,  the  corresponding 
NT  and  NY  values  will  have  to  be  encoded  as  described  in  subsection  I.B.1.3  and  filled 
into  all  the  file  names  of  this  section.  Remember  to  insert/replace  these  two  characters 
also  into/in  appropriate  positions  in  all  file  names  and  dataset  names  contained  in  the 
two  JOB-files!  Remember  also  to  verify/change  all  occurrences  of  NT= —  and  NY= — 
in  both  source  codes  accordingly. 


The  process  of  inserting/replacing  these  characters  is  called  ’editing  the  file.’  The 
computer  software  that  accomplishes  this  task  is  called  an  ’editor.’  A  rudimentary 
description  of  two  selected  editors  is  described  below  in  section  I.B.3. 

Section  I.B.3:  Editing  Files 
I.B.S.l  EDT  Screen  Editor 

In  order  to  make  amendments,  deletions  or  any  other  changes  in  a  file  (e.g.  an 
input  data  file),  that  file  needs  to  be  accessed  by  an  editor  program.  The  preferred 
editor  of  the  VAX/VMS  operating  system  is  called  EDT.  It  accesses  any  file  in  the 
following  way.  When  the  VAX 
prompts:  $ 

type:  SET  TERMINAL/VT100  < 

to  identify  to  the  editor  what  industry  standard  terminal  to  expect.  This  setting  needs 
to  be  made  only  once  after  login,  not  every  time  the  editor  is  invoked.  Giving  this 
setting  repeatedly  is  merely  redundant.  However,  it  needs  to  be  set  once  for  the  editor 
to  work  properly.  The  terminal  used  should  actually  be  a  DEC  VT100  terminal  as 
indicated  by  the  command,  or  at  least  emulating  such;  otherwise,  the  appropriate 
setting  will  have  to  be  found  from  the  VAX/VMS  reference  manual.  Ideally,  the  user 
should  have  a  VT240-type  terminal  to  work  with.  Without  its  graphics  capability  it 
will  not  be  possible  to  view  the  output  from  PRAMl  on  the  screen.  Such  terminal  is 
otherwise  fully  compatible  with  the  VT100  industry  standard  and  will,  therefore,  work 
fine  in  the  editor  given  the  above  setting.  This  setting  is  taken  by  the  VAX  without 
any  special  response,  it  just 
prompts:  $ 

Then 

type:  EDIT/EDT  ’filename.extension’  < 

and  fill  in  for  ’filename.extension’  the  name  of  the  file  that  shall  be  edited. 
CREATING/EDITING  A  NEW  FILE 
The  same  command 

EDIT/EDT  ’filename.extension’ 

can  also  be  used  to  create  a  new  file  by  filling  in  a  filename  that  is  not  yet  in  the 
directory.  (To  see  which  files  are  already  in  the  directory  see  below  in  section  I.B.4.) 
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In  that  case  the  system 

prompts:  Input  file  does  not  exist 

[EOB] 

* 

The  star  indicates  that  the  editor  is  in  its  default  mode  which  is  the  line  editing 
mode.  However,  the  power  and  primary  function  of  EDT  is  its  screen  editing  capability. 
To  change  to  screen  editing  mode 
type:  c  < 

following  the  star  prompt.  Then  the  screen  will  be  erased  and  in  the  top  left  corner 
appears  the  [EOB]  indicating  the  end  of  the  buffer.  Buffer  is  the  name  for  storage  space 
that  is  volatile.  The  characters  stored  in  it  will  disappear  after  the  process  to  which 
the  buffer  belongs  is  terminated  unless  the  buffer  is  purposely  saved.  Anything  that 
the  file  contains,  can  now  be  typed  into  the  buffer.  The  ’end  of  the  buffer’  indicator 
moves  automatically  down  the  screen  as  characters  are  inserted.  The  buffer  is  saved 
and  becomes  the  desired  file  if  the  editing  session  is  ended  with  the  END  instruction. 
The  alternative  would  be  to  finish  editing  with  the  QUIT  instruction  where  upon  the 
buffer  is  discarded  leaving  no  trace  of  the  editing  session  whatsoever.  To  finish  either 
way 

type:  *  z  ( Ctrl  z  ;  i.e.  while  holding  the  Ctrl  key  on  the 

keyboard  down  type  a  ’z’,  then  release  both  keys; 
no  additional  return  key  stroke  is  necessary; 
although  it  would  do  no  harm) 

The  editor  will  return  to  the  line  editing  mode  that 
prompts:  * 

To  exit 

type:  exit  <  (to  exit  and  to  save  the  buffer  content  in  a  disk  file) 

or 

type:  quit  <  (to  exit  and  to  lose  the  buffer  content) 

EDITING  AN  EXISTING  FILE 

If  the  ’filename. extension’  in  the  EDIT/EDT  command  line 


EDIT/EDT  ’filename. extension’  < 


matches  one,  or  several,  entries  in  the  current  directory  the  editor  will  access  the  one 
of  these  files  that  has  the  highest  version  number.  Access  is  accomplished  when  the 
computer 

prompts:  1 -  ‘text  of  first  line  in  file’ - 

* 

This  star  is  the  line  editor  mode  prompt, 
type:  c  < 

to  get  into  screen  editor  mode. 

SCREEN  EDITING  TOOLS 

Most  screen  editing  consists  in  moving  the  cursor  to  the  desired  position  on  the 
screen  and  then  entering  characters  there,  by  typing  them,  or  deleting  characters  there. 

For  this  the  essential  tools  are  the  special  keyboard  keys: 

arrows  (left,  right,  up,  down ;  move  the  cursor  one  field  at  the  time  by  pressing  the 
key  shortly;  scroll  the  cursor  in  that  direction  by  holding  the  key  down) 

delete  (erases  a  character  to  the  left  of  the  current  cursor  position) 

PF4  (erases  a  whole  line  following  the  current  cursor  position  at  once) 

PFl  PF4  (undoes  the  last  delete  of  the  PF4  key) 

The  set  of  18  keys  in  the  lower  right  corner  of  the  keyboard  is  called  keypad.  Its 
keys,  designated  in  this  manual  by  a  preceding  P  (e.g.  P4  is  keypad  key  4),  have 
special  functions  in  EDT  (e.g.  PFl  and  PF4  described  above).  To  view  a  description 
of  these  functions  press  the  PF2  key.  For  the  extensive  user  of  the  VAX,  it  is  desirable 
to  memorize  the  use  of  the  keypad.  For  the  occasional  user  it  shall  suffice  to  mention 
the  block  delete/move  procedure:  select  desired  block  of  text  by  marking  invisibly  one 
end  by  hitting  P.  (that  is  the  .  key  on  the  keypad)  (undo  erroneous  use  of  that  key  by 
pressing  PFl  followed  by  P.);  Use  the  arrow  keys  to  move  the  cursor  to  the  other  end 
of  the  intended  block  boundary;  press  P6;  now  the  block  is  moved  from  the  displayed 
text  buffer  into  a  hidden  text  buffer.  From  there  it  can  be  copied  to  the  current  cursor 
position  as  often  as  desired  by  pressing  PFl  followed  by  P6.  The  block  will  remain  in 
the  hidden  buffer  until  another  block  delete  overwrites  it,  or  until  the  editor  is  exited. 

Standard  editing  shows  a  maximum  of  80  characters  per  column.  To  view  CPR- 
files  it  is  appropriate  to  display  132-characters  per  line.  To  change  to  that  format 
type:  PFl  P7  SET  SCREEN  132  PEnter  ( PEnter  is  the  enter-key  on  the  keypad) 
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Very,  useful  particularly  when  viewing  a  CPR-file,  are  the  EDT-commands  for  fast 
scroll  to  end  or  beginning  of  the  file: 

type:  PFl  P4  (for  fast  scroll  to  the  end  of  the  file), 

type:  PFl  P5  (for  fast  scroll  to  the  beginning  of  the  file), 

The  key  P8  is  not  quite  that  fast,  but  still  faster  than  the  arrow  keys,  in  scrolling 
forward  or  backward  in  the  file.  If  preceded  by  P4,  P8  will  scroll  16  lines  forward,  if 
preceded  by  P5,  P8  will  scroll  16  lines  backward.  The  direction  key  P4  or  P5  needs  to 
be  pressed  only  once.  P8  can  be  applied  repeatedly  thereafter. 

These  are  the  basic  EDT  screen  editing  commands  that  the  user  will  need.  Further 
detail  can  be  found  on  line  (press  PF2)  or  in  the  VAX/VMS  reference  manual  on  EDT. 

I.B.8.2  TEDI  Line  Editor 

The  widely  used  line  editor  TEDI  shall  be  introduced  because  of  its  convenient 
pattern  search  and  replace  operation.  Line  editing  consists  in  displaying  and  modifying 
a  particular  line  or  several  lines  at  the  same  time. 

For  the  TEDI  editor  to  access  the  file  ’filename.extension’, 
type:  TEDI  ’filename.extension’  <. 


prompts: 


DUA107:  [D IRECTORY] filename.extension ;  1  ---LINES 


The  star  is,  just  like  in  the  EDT  editor,  the  line  mode  prompt. 

TEDI  commands  consist  of  one  or  a  few  acronymic  letters  accompanied  by  one 
to  three  line  numbers  separated  by  commas  and,  separated  by  semicolons,  followed  by 
one  or  two  character  strings,  depending  on  the  particular  command. 

The  TEDI  editor  can  list  and  replace  efficiently  all  occurrances  of  a  given  character 
pattern.  This  is  useful  when  checking  and/or  changing  the  dimensionality  of  the  field 
arrays  in  the  source  codes.  To  accomplish  this 
type:  TP 1,600; NY*;  < 

following  the  star  prompt.  This  instructs  the  computer  to  type  all  lines  between  line 
I  and  line  500  in  the  currently  accessed  file  that  contain  the  pattern:  NY*.  Note  that 
TEDI  distinguishes  letters  also  by  their  capitalization.  To  search  the  whole  file  one 
needs  to  replace  500  by  a  number  equal  to  or  larger  than  the  total  number  of  lines 
in  the  file  or,  if  unknown,  to  replace  1,500  by  the  wildcard  symbol  *.  For  example, 


W 


’tp*;NT*\  The  command  accronyms  can  be  small  or  large  case  letters.  The  last 
semicolon  may  be  and  was  omitted. 

To  replace  all  occurrences  of  NY*1  by  NY*512,  for  example, 
type:  RP1 ,500;NY=1 :NY*512;  < 

The  type  pattern  (TP)  command  preceeding  the  replacement  (RP)  is  somewhat 
tedious  but  efficient  if  there  is  any  doubt  about  possibly  unwanted  replacements  like: 
ISNY=1.  Therefore,  TP  should  be  employed  to  make  sure  that  the  intended  pattern 
string  is  unique. 

Portions  of  a  file  can  be  viewed  by  the  type  command: 

T1.500  < 

would  scroll  fines  1  through  500  across  the  screen.  The  command 

T*  < 

scrolls  the  whole  file.  An  individual  line  (e.g.  line  500)  can  be  deleted  by 

DL500  < 

Several  lines  are  deleted  by  giving  the  range  (e.g.  line  1  through  500) 

DU.500  < 

Caution!  Deletes  cannot  be  restored  in  TED  I  except  for  the  price  of  giving  up  all  the 
other  editing  that  was  done  beforehand  through  an  emergency  exit  from  the  editing 
session  (type:  quit). 

New  lines  can  be  added  before  (BL)  or  after  (AL)  any  specified  line  number.  For 
example, 

BL1  < 

starts  the  insertion  of  lines  before  the  current  line  number  1.  Insertion  mode  is  indicated 
by  the  ’> ’-prompt.  All  following  characters  will  be  inserted  sequentially  as  typed. 
Another  new  line  is  inserted  with  every  return  ’<’.  Insertion  mode  is  ended  by  typing 
a  by  itself  on  a  new  line. 

A  detailed  description  of  the  TEDI  editor  is  on  file  in  the  CCF  consultants  office 
or  can  be  purchased  from  the  CCF  operator  desk. 


Section  I.B.4:  Directories  /  Delete  /  Purge 
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I.B.4.1  VAX 
DIRECTORY 

A  listing  of  the  directory  of  files  on  the  VAX  cam  be  viewed  in  the  following  way: 
Change,  if  necessary,  the  directory  information  that  is  contained  in  the  omitted  portion 
of  the  complete  file  name  to  the  desired  directory  DISK:  [USER. SUBDIRECTORY] .  To  this 
end 

type:  SET  DEFAULT  DISK: [USER. SUBDIRECTORY]  < 

prompts:  $ 

Then  the  listing  of  files  in  that  subdirectory  appears  after  you 
type:  DIRECTORY  < 

may  be  shortened  to  DIR  <. 

The  DISK:  specification  may  be  omitted  if  unchanged.  The  .SUBDIRECTORY  spec¬ 
ification  has  to  be  omitted  to  see  the  main  [USER]  directory  list  of  files.  Multiple 
level  subdirectories  can  be  listed  in  the  same  way  by  continuing  the  path  of  directories 
starting  with  the  main  directory  in  the  analog  fashion: 

SET  DEFAULT  DISK: [USER. SUBDIR.SUBSUBDIR.SUBSUBSUBDIR]  < 

The  plain  listing  of  all  files  can  be  more  elaborate  by  means  of  file  name  portion, 
filters,  and  options  following  the  DIRECTORY  command.  For  details 
type:  HELP  DIRECTORY  < 

which  can  be  terminated  by  one  or  several  ’<’  returns. 

DELETE 

To  delete  an  entry  from  the  directory  of  files  and  thereby  destroy  that  file 
type:  DELETE  ’filename.extensionjversion’  < 

The  specified  file  name  is  removed  from  the  default  directory  (see  I.B.1.1)  only. 
It  is  necessary  to  specify  the  version  number  otherwise  no  deletion  will  take  place  but 
rather  an  error  message  will  appear  on  the  screen.  The  three  pieces  in  the  name  of  the 
file:  filename,  extension,  and  version  can  be  substituted  with  the  wild  card  character 
in  order  to  generalize  the  command  to  delete  all  files  that  match  the  specification 
except  for  the  name  piece  represented  by  the  For  example, 
type:  DELETE  NRAM.DAT;* 
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to  delete  all  versions  of  the  file  NRAM.DAT  (contrary  to  PURGE  NRAM.DAT  which  leaves 
the  highest  version).  For  example, 
type:  DELETE  N* .DAT;* 

to  delete  all  files  whose  names  begin  with  the  letter  N,  by  the  file  extension  .DAT  from 
the  directory.  For  more  sophisticated  usage  of  the  DELETE  command 
type:  HELP  DELETE 

which  can  be  exited  by  one  or  several  ’<’  returns. 

PURGE 

To  purge  the  default  directory  of  files  is  to  remove  all  file  versions  except  for  the 
last  (highest)  one.  To  purge  the  current  VAX  default  directory  simply 
type:  PURGE  < 

The  PURGE  command  can  be  made  more  specific.  For  details 
type:  HELP  PURGE  < 

which  can  be  exited  by  one  or  several  ’<’  returns. 

I.B.4.2  CRAY 

The  simple  functions  of  listing  the  file  directory,  purging  it  and  deleting  particular 
entries  are  somewhat  time  consuming  on  the  CRAY  computer  due  to  the  batch  job 
setup.  Therefore,  a  batch  job  has  to  be  submitted  to  accomplish  these  tasks.  How  to 
submit  a  batch  job  will  be  demonstrated  in  the  next  Section  I.B.5:  Running  a  Batch 
Job. 

DIRECTORY 

The  listing  of  the  files  in  the  user  directory  on  the  CRAY  disk  is  obtained  in  the 
CPR-output  file  of  any  CRAY  job  if  the  job  command  file  contains  the  command  line 
with  the  command: 

AUDIT. . 

This  is  usually  the  case  with  every  batch  job,  hence,  the  need  for  at-will  CRAY 
directory  information  is  small.  Nevertheless,  the  job  command  file 

DUA107:[HILFER.FOR]CAUDIT.JOB 

can  be  copied  to  do  only  that  when  submitted  as  a  batch  job. 


DELETE 


In  order  to  delete  a  file  in  the  CRAY  directory  a  batch  job  command  file  needs  to 
be  submitted  that  contains  the  appropriate  DELETE  command  line.  For  example, 

DELETE. PDN*‘ filename*.  . 

The  user  may  wish  read  the  details  of  DELETE  command  line  in  the  CRAY  operating 
system  (COS)  manual.  The  quickest  path  for  the  new  user  is  simply  to  copy  the  file 
DUA107:[HILFER.FOR]CDELET.JOB  into  the  current  directory,  to  change  the  file 
name  contained  in  it  as  desired,  and  to  submit  it  for  execution.  Notice  that  the 
character  serves  as  the  wild  card  character  of  COS  representing  any  string  of  characters. 

PURGE 

In  order  to  purge  files  in  the  CRAY  directory,  i.e.  delete  all  versions  but  the 
latest  of  each  file,  a  batch  job  command  file  needs  to  be  submitted  to  the  CRAY  that 
accomplishes  to  delete  in  a  selective  way.  For  example, 

DELETE, PDN=-,ED=-1.  . 

The  user  can  find  the  details  of  the  DELETE  command  in  the  COS-manual.  A 
simpler  path  is  to  copy  the  file  DUA107:[HILFER.FOR]CPURGE.JOB  into  the  user 
directory,  and  to  edit  the  contained  file  names  such  that  all  file  names  to  be  purged  are 
covered  by  the  specified  file  name  pieces  in  combination  with  wild  cards.  Recall  that 
on  the  CRAY  the  symbol  is  the  wild  card  for  any  string  of  characters. 

Section  I.B.5:  Running  a  Batch  Job 

I.B.5.1  The  Batch  Job  Command  File 

The  execution  of  a  computation  on  the  CRAY  computer  as  a  batch  job  requires 
several  steps  which  are  listed  as  command  lines  in  the  batch  job’s  .JOB-file  .  Once 
this  file  is  transferred  to  the  CRAY  it  will  be  queued  in  the  batch  job  queue.  When  its 
turn  for  execution  comes  around,  the  operating  system  will  execute  all  command  lines 
sequentially,  waiting  for  each  command  to  finish  before  picking  up  the  next  one.  Should 
a  terminal  error  occur,  execution  will  be  stopped.  A  the  end  of  each  job  a  log-file  will 
be  sent  to  the  user’s  VAX  directory. 

There  are  a  few  rules  concerning  the  form  of  the  batch  job  command  file:  Beginning 
in  column  1,  every  line  must  start  with  a  command  verb  that  is  known  and  accepted 
by  the  operating  system.  Every  line  must  end  with  a  period  (’.’).  Several  parameters 
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may  follow  the  command  verb  separated  by  commas.  The  first  command  line  in  the 
file  must  be  the  JOB-statement: 

JOB, JN*' job  name' . 

(CBATCH  processing  waives  this  requirement,  see  section  V.B.4.  The  name  that  the 
job  shall  have  has  to  be  inserted.  The  second  command  line  must  be  the  ACCOUNT* 
statement: 

ACCOUNT ,  AC= ’account  number’, US*’user 
number’, UP W= ’user  password’. 

(CBATCH  processing  waives  this  requirement,  see  section  V.B.4  which  has  to  be 
completed  by  the  three  appropriate  fill-ins:  account  number,  user  number,  and  user 
password.  The  next  command  lines  contain  the  desired  CRAY  action  followed  by  the 
command  line: 

EXIT. 

Note  that  all  JOB-files  that  are  copied  from  the  DUA107[HILFER.FOR]  directory 
lack  the  JOB  and  ACCOUNT  command  line  which  will  have  to  be  supplied  by  the  user. 

I.B.5.2  Submitting  a  Batch  Job 

It  is  recommended  to  preceed  the  submission  of  the  first  batch  job,  when  the  VAX 
prompts:  $ 

with  the  following  VAX  command, 

type:  CRAY  SET  TERMINAL  INFORM  < 

This  will  inform  the  CRAY  computer  of  the  location  of  the  user’s  terminal  and, 
hence,  enable  forwarding  of  the  messages  that  accompany  the  execution  of  the  job. 

For  the  actual  submission  of  the  JOB-file 
type:  CRAY  SUBMIT  'filename * .JOB  < 

where  the  JOB-file’s  filename  has  to  be  inserted.  This  will  queue  the  job  file  for  transfer 
to  the  CRAY  and  subsequently  queue  it  for  execution.  For  example 
type:  CRAY  SUBMIT  CAUDIT.JOB  < 

prompts:  $ 

%  CX-S-SUB.OK,  Job:  CAUDIT  queued  for  submission 

$ 

VAX  TO  CRAY:  X  SYSTEM-S-NOMRAL ,  normal  successful  completion 
VAX  TO  CRAY:  FILE»CAUDIT 


VAX  TO  CRAY:  4608  BYTES  TRANSFERRED 

$ 


which  are  the  standard  messages  of  verification  for  the  queuing  for  submission  and  for 
the  transfer  of  the  JOB-file  for  the  CRAY  computer. 

I.B.5.S  Batch  Job  Execution  and  Termination 

The  execution  of  the  job  is  determined  by  the  CRAY  operating  system.  During 
the  execution  of  RAM2D1  and  PRAM1  other  files  are  transferred  from  the  VAX  to  the 
CRAY.  Each  transfer  is  accompanied  by  a  message  of  the  type 

VAX  TO  CRAY:  X  SYSTEM-S-NOMRAL.  normal  successful  completion 

VAX  TO  CRAY:  FILE=NRJ1 

VAX  TO  CRAY:  4608  BYTES  TRANSFERRED 

Progress  of  execution  can  be  monitored  through  on-demand  status  messages.  For 
this  purpose 

type:  CRAY  STATUS/OWN  < 

prompts: 


Cray  system  status  EIORS  PRIMARY  17-feb-1988  11:39:50.19 

jsd  dc  dataset  class  status  pri  used  limit  length  id  tid 

12596  IN  CAUDIT  SMALL  QUEUED  6.0  0  60  512  V2  HILFER 

the  explanation  of  each  detail  for  which  all  would  break  the  frame  of  this  manual. 
The  important  points,  however,  are  the  STATUS,  the  number  of  seconds  USED,  and  the 
number  of  seconds  LIMIT  for  the  job.  Those  three  items  are  self-evident. 

The  termination  of  a  job  occurs  usually  automatically  when  the  EXIT,  command 
line  in  the  JOB-file  is  executed.  Such  normal  (and  other  unusual)  termination  is  indi¬ 
cated  by  the  transfer  of  the  CPR-file  from  the  CRAY  to  the  VAX  as  notified  of  by  a 
message  of  the  following  type: 

CRAY  TO  VAX:  X  RMS-S-NORMAL,  normal  successful  completion 
CRAY  TO  VAX:  FILE=IDUA107 : [HILFER. FOR] CAUDIT. CPR; 1 
CRAY  TO  VAX:  1706  BYTES  TRANSFERRED 


Another  definite  indication  is  when  the  response  to  the  status  request  explained 
just  above  is  responded  by  only  the  first  two  headlines,  showing  no  job  sequence  num¬ 
ber.  The  successful  transfer  of  the  CPR-file  does  not  indicate  that  the  program  ran 
successfully.  This  can  only  be  seen  from  the  bottom  portion  of  the  CPR-file. 

Unusual  termination  can  be  due  to,  e.g.,  programming  errors,  command  line  errors, 
too  small  a  time  limit  (job  needs  more  CPU-time  than  the  allocated  amount;  =60sec 
by  default),  forced  by  the  user  and  other  reasons.  When  a  submitted  job  needs  to  be 
stopped,  obtain  at  first  the  jsq-number  from  the  CRAY  STATUS/OWN  report,  then 
type:  CRAY  KILL’jsq-number’  <. 

This  will  result  in  the  termination  of  the  job  that  is  documented  as  such  in  the 
subsequently  issued  CPR-file. 

1.3. 5. 4  VAX  Job  Interruption 

An  emergency  stop  of  any  VAX  DCL-command  can  be  forced  by  typing  *  Y  (=  Ctrl 
Y).  This  causes  the  VAX  computer  to  interrupt  whatever  it  was  engaged  in  and  to  return 
to  the  $-prompt,  ready  for  a  new  command. 


To  perform  the  actual  Raman  amplifier  simulation,  one  only  needs  to  submit  a 
JOB-file  that  compiles  the  source  code  RAM2D1  and  runs  the  resulting  executable  file. 
Hence 

type:  CRAY  SUBMIT  CR--.J0B 

where  the  holds  the  place  for  the  appropriate  dimensionality  characters  (see  PART 
I.B). 

To  diagnose  the  results  of  a  Raman  amplifier  simulation,  one  only  needs  to  submit 
a  JOB-file  that  compiles  the  source  code  PRAMl  and  runs  the  resulting  executable 
file.  Hence 

type:  CRAY  SUBMIT  CP- -.JOB 

where  the  holds  the  place  for  the  appropriate  dimensionality  characters  (see  PART 
I.B). 

As  a  reminder,  we  repeat  several  points:  1)  ensure  that  RAM2D1  and  PRAMl 
have  the  desired  dimensions  in  all  its  subroutines;  2)  ensure  that  the  input  data  file 
NR--.DAT,  contains  the  desired  input  parameters;  3)  ensure  that  the  JOB-file  transfers 
the  desired  set  of  files. 

If  all  appears  well,  submit  the  job  as  shown  above.  Monitor  the  job  progress  by 
reading  the  messages  on  the  screen  and/or  inquire  the  status  as  described  in  section 
I.B. 5.  Job  termination  is  indicated  by  the  transfer  of  the  CR--.CPR  file  from  the 
CRAY  to  the  VAX.  Use  EDT’s  132  column  screen  editing  mode  to  check  the  CPR-file 
for  error-free  execution  of  the  whole  job.  In  case  of  error  messages,  turn  to  PART  V.C. 
or  call  Godehard  Hilfer  at  (202)-767-2028. 


In  a  senes  of  simulations,  it  is  unnecessary  to  recompile  the  source  code  for  each 
simulation  over  again.  Instead  one  can  copy,  or  create,  the  XR--.JOB  file  and 
type:  CRAY  SUBMIT  XR--.J0B 

to  submit  the  next  simulation.  The  XR--.JOB  file  is  a  copy  of  the  CR--.JOB  that 
lacks  the  compilation  and  loading  command  lines.  Hence,  it  will  only  run  the  executable 
dataset  XR--.  The  corresponding  CPR-file  is  XR — .CPR  . 
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CHAPTER  III 


VIEWING  THE  RESULTS 


PART  III.A  TERMINAL  OUTPUT 


The  data  file  that  arrives  in  the  VAX  user  directory  at  the  end  of  PRAMl’s  execu¬ 
tion,  PLT2.DAT,  is  a  device  independent  graphics  data  file  generated  by  the  DISSPLA 
library  routines  contained  in  PRAMl.  In  order  to  see  the  graphs  on  the  terminal 
screen,  DISSPLA  postprocessing  software  needs  to  be  applied.  For  this  purpose,  unless 
previously  done  during  this  login, 
type:  GRAPHICS_LOGICALS 

prompts:  $ 

type:  PUBLIC_LOGICALS 

prompts:  $ 

(to  make  use  of  site  specific  software  and  setups) 

Then  attach  the  data  file  to  the  post-processing  software  and  run  it 
type:  RUN  VT24OIP0P  < 

prompts:  THIS  IS  THE  VT240  POST-PROCESSOR  ENTER  YOUR  POST¬ 

PROCESSOR  DIRECTIVES  OR  A  CARRIAGE- RETURN  FOR 
DEFAULTS 

To  view  all  graphs  one  only  needs  to 
type:  < 

a  carriage  return.  This  will  produce  the  first  graph  on  the  screen.  Another  carriage 
return  will  erase  the  first  graph  and  draw  the  second  graph.  Any  more  carriage  returns 
will  sequentially  display  the  rest  of  the  graphs  until  the  last  carriage  return 
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prompts:  END  OF  DISSPOP  2.2  —  2057  VECTORS  IN  1  PLOTS  RUN  ON  2/17/88 

USING  SERIAL  NUMBER  60  AT  NRL  PCC  VAX  PROPRIETARY 
SOFTWARE  PRODUCT  OF  ISSCO,  SAN  DIEGO.  CA 
$ 

which  automatically  finishes  the  post-processing. 

To  be  more  selective  in  which  graphs  shall  actually  be  displayed,  one  has  to  en¬ 
ter  those  graph  numbers  explicitly  when  asked  for  the  post-processor  directives.  For 
example, 

type:  DRAW=5-9 . 12 . 17-20  << 

to  display  graphs  numbered  5,  6,  7,  8,  9,  12,  17,  18,  19,  20.  Notice  that  it  takes  two 
carriage  returns  to  continue  the  postprocessing.  If  a  few  in  a  large  series  of  graphs  shall 
be  excluded  from  viewing,  one  can,  rather  than  listing  all  the  others,  ’delete’  those 
particular  graphs  from  the  display.  Hence, 
type:  DELE-1-4, 10.11.13'16.21-END  << 

to  display  the  same  graphs  numbered  5,  6,  7,  8,  9,  12,  17,  18,  19,  20  as  before.  Note, 
deletes  supersede  draws,  and  the  sequence  of  listing  is  immaterial. 

For  more  details,  see  the  DISSPLA  users  manual  part  F.  DISSPOP  post-processing. 

PART  III.B  HARDCOPIES 
Section  IH.B.l:  Printed  Graphs 

The  data  file  that  arrives  in  the  VAX  user  directory  at  the  end  of  PRAMl’s 
execution,  PLT2.DAT,  is  a  device  independent  graphics  data  file  generated  by  the 
DISSPLA  library  routines  contained  in  PRAMI.  In  order  to  obtain  the  graphs  on 
paper,  DISSPLA  postprocessing  software  needs  to  be  applied.  For  this  purpose,  unless 
previously  done  during  this  login, 
type:  GRAPHICS -LOGICALS 

prompts:  $ 

type:  PUBLIC.LOGICALS 

prompts:  $ 

(to  make  use  of  site  specific  software  and  setups) 

Then  attach  the  data  file  to  the  post-processing  software  and  run  it. 
type:  RUN  LN01$POP  < 

prompts:  THIS  IS  THE  VT240  POST-PROCESSOR  ENTER  YOUR  POST¬ 

PROCESSOR  DIRECTIVES  OR  A  CARRIAGE-RETURN  FOR 
DEFAULTS 


i 
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To  process  all  graphs  for  printing  one  only  needs  to 
type:  < 

a  carriage  return.  This  will  produce  a  new  data  file  called  INTSCRT.TMP  in  the  user’s 
directory  which  then  can  be  printed  straightforwardly.  At  the  end  of  processing  the 
computer 

prompts:  END  OF  DISSPOP  2.2  —  2067  VECTORS  IN  1  PLOTS  RUN  ON  2/17/88 

USING  SERIAL  NUMBER  60  AT  NRL  PCC  VAX  PROPRIETARY 
SOFTWARE  PRODUCT  OF  ISSCO.  SAN  DIEGO.  CA 


which  automatically  finishes  the  post-processing. 

To  be  more  selective  in  which  graphs  shall  actually  be  post-processed,  one  has  to 
enter  those  graph  numbers  explicitly  when  asked  for  the  post-processor  directives.  For 
example, 

type:  DRAW=5-9. 12, 17-20  << 

to  graph  frames  numbered  5,  6,  7,  8,  9,  12,  17,  18,  19,  20.  Notice  that  it  takes  two 
carriage  returns  to  continue  the  postprocessing.  One  can  also  delete  particular  graphs, 
type:  DELE=l-4 . 10. 11 . 13-16.21-END  « 

to  process  the  same  graphs,  numbered  5,  6,  7,  8,  9,  12,  17,  18,  19,  20,  as  before.  The 
command  DELEte  supersedes  DRAW  and  the  sequence  is  immaterial.  For  more  details, 
see  the  DISSPLA  users  manual  part  F.  DISSPOP  post-processing. 

The  device  specific  file  INTSCRT2.TMP  (last  version  is  default  version  number) 
can  be  send  directly  to  the  CCF  or  A49  laser  printer.  Thence, 
type:  LASER/PLOT/CCF/NOTIFY  INTSCRT2.TMP  < 


type: 


LASER/PL0T/A49/N0TIFY  INTSCRT2 . TMP  < 


The  terminal  will  notify  of  the  completion  of  printing  with  a  beep  and  a  message. 
The  print-out  can  then  be  picked  up  in  building  A49  either  at  the  CCF-desk  (output 
from  the  CCF  laser  printer)  or  in  the  Remote-Print-Station  room  in  building  A49 
(output  from  the  A49  laser  printer). 

Section  III.B.2:  Printed  ASCII-Files 

The  printing  of  regular  text  files  is  done  with  either  one  of  the  following  two 
commands, 

type:  LASER/PORT/CCF/NOTIFY  < 

for  a  print-out  on  the  CCF  laser  printer  in  building  A49  or 
type:  LASER/PORT/CCF/NOTIFY  < 
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for  a  print-out  on  the  ’remote  print  station’  laser  printer  in  building  A49.  Both  com¬ 
mands  will  cause  the  terminal  to  notify  of  the  completion  of  the  printing  job  with  a 
beep  and  a  message.  For  files  with  lines  of  more  than  80  characters  length,  the  printing 
can  be  turned  by  90  degrees  from  the  high  format  to  the  wide  format  of  the  8.5  x  llinch 
pages.  For  this 

type:  LASER/LAND/CCF/NOTIFY  < 

or 

type: 


LASER/LAND/A49/N0TIFY  < 


CHAPTER  IV 

SUSTAINING  OPERATIONS 

PART  IV.A  FILE  STORAGE 

Section  IV.A.l:  VAX  Disk 

The  most  essential  and  only  necessary  storage  device  for  the  code  operation  is  the 
VAX  disk  storage  space.  Since  it  is  the  default  storage  location,  no  special  steps  need  to 
be  taken  to  store  files  in  the  VAX  computer  on  those  disks.  The  essential  files  (source 
codes,  input  data  files,  batch  job  command  files,  and  graphics  output  data  files)  are 
stored  here.  However,  the  space  allocation  for  the  user  is  limited  and  can  be  restrictive 
when  producing  graphs.  To  obtain  a  quotation  of  the  allocated  and  used  disk  storage 
space, 

type:  SHOW  QUOTA  < 

which  will  respond  with  a  message  that  gives  the  total  allocated  storage  space,  the 
portion  used,  the  portion  remaining,  and  the  overflow  margin.  If  the  allocated  space  is 
continuously  insufficient,  turn  to  the  CCF  system  manager  or  consultant  for  an  increase. 
If  the  shortage  of  storage  space  is  expected  to  be  only  occasional,  then  turn  also  to  the 
consultant  for  access  to  the  so-called  scratch  disk.  This  whole  disk  is  available  on  a 
first  come,  first  serve  basis.  Files  will  be  kept  on  it  for  at  least  24  hours  but  at  most  48 
hours.  Hence  all  post-processing  and  printing  of  particularly  large  graphics  data  files 
can  be  done  before  the  system  software  wipes  out  all  scratch  disk  files  routinely. 

The  size  of  individual  files  can  be  obtained  when  listing  the  directory  of  files  by 
specifying  /SIZE=USED  in  the  DIRECTORY  command.  Hence, 
type:  DIR/SIZE=USED  ’filename.ext’  < 


Furthermore,  the  date  the  file  was  created  can  be  inquired  by  specifying  /DATE=CREATED 
in  the  DIRECTORY  command.  For  this 
type:  DIR/DATE=USED  ’filename. ext’  < 

This  way,  a  more  selective  clean  up  of  the  user  directory  is  possible,  hopefully,  main¬ 
taining  sufficient  space  for  all  user  activity. 

VAX  storage  space  is  measured  in  units  called  BLOCKS, 

1  Block  =  512  Bytes. 

(Recall  1  Byte  =  8  Bits) 

The  price  for  VAX  disk  storage  is  currently  $0.00016  per  Block  per  day. 

Section  IV.A.2:  VAX  Tape 

For  more  economical  storage  and  to  keep  the  VAX  disk  quota  sufficient  it  is  rec¬ 
ommended  to  store  files  on  VAX  tape.  This  is  called  archiving  the  file.  For  on-line 
documentation  regarding  the  archiving  options 
type:  HELP  ARCHIVE  < 

The  most  important  features  will  be  listed  here. 

To  archive  a  file  means  that  that  file  is  physically  removed  from  the  VAX  disk  to 
the  tape.  Hence,  to  keep  a  copy  on  the  disk  an  explicit  copy  must  be  made, 
type:  COPY  ’file-to-archive.ext’  ’remaining-file.ext’  < 

To  archive  the  desired  file 

type:  ARCHIVE  ’file-to-archive.ext’  < 

This  removes  the  file  from  the  directory. 

To  list  the  files  that  had  previously  been  archived 
type:  ARCHIVE/DIR  < 

Since  the  archiving  is  done  overnight  by  the  operating  system,  the  newly  archived 
file,  although  gone  from  the  directory,  does  not  yet  show  up  as  archived.  It  is  queued 
for  archival.  To  list  the  files  awaiting  archival 
type:  ARCHIVE/LIST  < 

If  an  error  occurred,  the  file  can  be  retrieved  from  this  queue  of  files  bound  for  archival; 

For  this 

type:  ARCHIVE/CANCEL  ’file-to-archive.ext’  < 

To  remove  a  file  from  the  archive 
type:  REMOVE  ’archived-file.ext’  < 

prompts: REMOVE  DUA107 :  [USER. DIR] ’archived-file.extjx’  ? 


then  the  hie  disappears. 

VAX  storage  space  is  measured  in  units  called  blocks , 

1  block  =  512  bytes. 

(Recall  1  byte  =  8  bits) 

The  price  for  VAX  disk  storage  is  currently  $0.00001  per  block  per  day. 

Section  IV.A.3:  CRAY  Disk 

As  was  mentioned  in  the  introduction,  all  files  on  the  CRAY  computer  are  volatile. 
That  is,  they  will  not  be  stored  by  default,  rather  they  will  be  destroyed  by  default. 
Therefore,  it  is  necessary  to  save  explicitly  all  files  that  need  to  be  saved.  To  this  end, 
after  compilation  of  the  source  codes,  the  executable  files  are  saved  by  the  batch  job 
command  file  on  CRAY  disk.  Unless  otherwise  specified  the  system’s  storage  (save) 
commands  save  the  datsets  on  the  CRAY  disks.  Examples  for  two  procedures  are: 

SAVE.DN*XR--. 

(example  for  batch  job  command  line  for  storage), 

CALL  SAVE ( IRRE . ’ DN ' L . DTFL ID . ’ PDN  * L . PDN ID) 

(example  for  FORTRAN  statement  for  file  storage,  where  ’DH’L.DTFLID  indicates  that 
the  character  variable  DTFL1D  is  the  dataset  name  when  the  program  is  running,  and 
‘PDN’L.DTFLID  is  the  permanent  dataset  name  by  which  the  file  will  be  listed  on  the 
disk. 

Storage  space  on  the  CRAY  is  not  allocated  individually,  but  always  on  a  first 
come,  first  serve  basis.  Operating  system  software  ensures,  by  moving  big,  old  files 
automatically  from  disk  to  tape,  that  there  is  always  storage  space  available.  When 
listing  the  directory  file  names  by  means  of  the  AUDIT,  command,  the  right  hand 
column  indicates  whether  the  listed  file  is  on  disk  (on-line)  or  on  tape  (off-line). 

The  price  for  CRAY  file  storage  is  the  same  as  that  for  VAX  file  storage.  Hence, 
CRAY  disk  storage  is  charged  at  $0.00016  per  block  per  day. 

(Recall  1  block  =  512  bytes. 

1  byte  =  8  bits) 

The  standard  measure  for  CRAY  storage  is  1  sector  =  8  Blocks  =  512  CRAY  words  of 
64  bits  each) 

Section  IV. A. 4:  CRAY  Tape 

As  was  mentioned  in  the  introduction  and  in  section  IV.A.3  above,  all  files  on 
the  CRAY  computer  are  volatile.  They  will  not  be  stored  by  default;  they  will 
be  destroyed  by  default.  Therefore,  it  is  necessary  to  explicitly  save  all  files  that 


need  to  be  saved.  To  this  end,  the  programs  RAM2D1  (and  PRAMl)  contain  CRAY 
operating  system  calls  that  save  the  data  files  on  CRAY  tape  (called  off-line).  To  save 
a  file  on  CRAY  tape,  one  has  specify  to  that  location  on  the  SAVE  command  line.  For 
example: 

CALL  SAVEURRE,  'DN’L.DTFLID,  ’PDN’L.PDNID,  ’ RESIDE ’L. ’OFFLINE ’L) 

This  is  a  CRAY  FORTRAN  statement  for  file  storage,  where  ’DN’L.DTFLID  indicates 
that  the  character  variable  DTFL1D  holds  the  dataset  name  when  the  program  is  running, 
and  ’PDN ’L .DTFL1D  contains  the  permanent  dataset  name  by  which  the  file  will  be 
listed  on  the  disk.  Residency  off-line  is  explicitly  mentioned. 

The  storage  space  on  the  CRAY  tape  is  not  allocated  individually,  but  always 
sequentially  used  on  first  come  first  serve  basis  available.  Operating  system  software 
ensures,  by  moving  big  old  files  automatically  from  disk  to  tape,  that  there  is  always 
storage  space  available.  When  listing  the  directory  file  names  by  means  of  the  AUDIT, 
command,  the  right  hand  column  indicates  residency  of  the  file  on  CRAY  disk  as  on¬ 
line. 

The  price  for  CRAY  file  storage  is  the  same  as  that  for  VAX  file  storage.  Hence 
CRAY  disk  storage  is  charged  at  $0.00016  per  block  per  day. 

(Recall  1  block  =  512  bytes. 

1  byte  =  8  bits) 

The  standard  measure  for  CRAY  storage  is  1  sector  =  8  blocks) 

PART  IV. B  OPERATOR  RELIEF 

Section  IV.B.l:  Login  Command  File 

Many  settings  and  definitions  should  be  repeated  every  time  a  user  logs  into  the 
front-end  VAX  computers.  To  save  the  user  the  typing  effort  of  these  settings,  it  is 
possible  and  recommendable  to  let  the  computer  repeat  this  sequence  of  definitions 
and  commands  automatically.  This  can  be  done  by  means  of  the  LOGIN.COM  file. 
This  file,  which  has  to  be  in  the  user’s  root  (login  default)  directory,  is  a  command 
file  that  the  computer  executes  automatically  every  time  the  user’s  logs  into  the  VAX 
computer.  For  details  on  the  meaning  and  syntax  of  command  lines  in  this  file,  see 
the  VAX/VMS  DCL-manual.  The  following  list  is  an  example  for  some  of  the  login 
commands  and  definitions  which  typically  appear  in  a  LOGIN. COM-file. 

COMMANDS 
$  SET  TERMINAL/VT100 

informs  the  operating  system  of  the  terminal’s  industry  standard 
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$  GRAPHICS _LOGICALS 

invokes  site-specific  system  definitions 
$  PUBLIC.LOGICALS 
invokes  site-specific  system  definitions 
$  CRAY  SET  TERMINAL  INFORM 

advise  operating  system  to  output  CRAY  messages  to  terminal 
$  SHOW  TIME 

show  current  time  on  terminal 
$  SHOW  QUOTA 

show  current  VAX  disk  storage  distribution  of  the  owner. 

DEFINITIONS 

a)  of  acronyms  of  customized  directory  lists  of  file  groups 

S  DIRALL  :==  DIRECTORY/SIZE=USED/DATE*CREATED/TRAILING 

$  DCPR  :==  DIRECTORY/SIZE=USED/DATE=CREATED/TRAILING  *.CPR 
$  DDAT  ?==  DIRECTORY/SIZE=USED/DATE*CREATED/TRAILING  * .DAT 
$  DFOR  :==  DIRECTORY/SIZE=USED/DATE*CREATED/TRAILING  *.F0R 
$  DJOB  :==  DIRECTORY/SIZE=USED/DATE*CREATED/TRAILING  *.J0B 
$  ETA  :==  DIRECTORY/SIZE*USED/DATE=CREATED/TRAILING  *PLT* .DAT 
$  DMSG  :==  DIRECTORY/SIZE=USED/DATE=CREATED/TRAILING  *.MSG 
$  DTMP  :==  DIRECTQRY/SIZE=USED/DATE=CREATED/TRAILING  *.TMP 

b)  of  acronyms  of  customized  directory  lists  of  files  of  a  standard  dimensionality 

$  DEE  :==  DIRECTORY/SIZEatUSED/DATE=CREATED/TRAILING  *EE. * 

$  DG1  :==  DIRECTORY/SIZE*USED/DATE*CREATED/TRAILING  *G1.* 

$  DH1  :==  DIRECTORY/SIZE=USED/DATE=CREATED/TRAILING  *H1.* 

$  Dll  :==  DIRECTORY/SIZE=USED/DATE*CREATED/TRAILING  *11.* 

$  DJI  :==  DIRECTORY/SIZE*USED/DATE*CREATED/TRAILING  *J1.* 

$  DK1  :==  DIRECTORY/SIZE=USED/DATE=CREATED/TRAILING  *K1.* 

$  DIG  :==  DIRECTORY/SIZE=USED/DATE=CREATED/TRAILING  *1G.* 

$  D1H  :==  DIRECTORY/SIZE=USED/DATE=CREATED/TRAILING  *1H.* 

$  Dll  :==  DIRECTORY/SIZE=USED/DATE=CREATED/TRAILING  *11.* 
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$  D1J 
$  D1K 
$  D1L 
$  DIM 
$  DIN 
$  DIO 
$  DIP 
$  DGI 


==  DIRECTORY/SIZE-USED/DATE-CREATED/TRAILING  *1J.* 
==  DIRECTORY/SIZE=USED/DATE»CREATED/TRAILING  *1K.* 
==  DIRECTORY/SIZE-USED/DATE-CREATED/TRAILING  *1L.* 
==  DIRECTORY/SIZE*USED/DATE*CREA TED/TRAILING  *1M.* 
==  DIRECTORY/SIZE*USED/DATE*CREATED/TRAILING  *1N.* 
==  DIRECTORY/SIZE*USED/DATE*CREATED/TRAILING  *10.* 
==  DIRECTORY/SIZE*USED/DATE*CREA TED/TRAILING  *1P.* 


==  DIRECTORY/SIZE=USED/DATE=CREA TED/TRAILING  *GI.* 


c)  of  acronyms 
this  manual 


of  other  customized  commands  that  have  been  explained  elsewhere  in 


$  HFOR 
$  PLOTMPL 
$  PLOTMPS 
S  POP240 
$  POPL 


==  SET  DEFAULT  DUA107 :  [HILFER] 

==  SET  DEFAULT  DUA107:  [HILFER. FOR] 

==  LASER/PLOT/CCF/NOTIFY  INTSCRT2 . TMP 
==  LASER/PL0T/A49/N0TIFY  INTSCRT2 . TMP 
==  RUN  VT24OIP0P 
==  RUN  LNOllPOP 


Section  IV.B.2:  Edit-Aid 

Certain  customized  features  of  the  EDT  editor  can  be  made  standard  if  the 
LOGIN. COM-file  (see  section  IV.B.l)  contains  the  following  definition. 

$  E  :==  EDIT/EDT/COMMAND»DUA107: [USER] EDTINI. EDT 

This  shortens  the  command  line  that  staxts  the  EDT  editor  to  the  letter  e  plus  the  file¬ 
name  and  at  the  same  time  implements  the  definitions  contained  in  the  file  [USER]  :EDTINI. EDT 
for  which  an  example  follows: 

DEFINE  KEY  GOLD  N  AS  *  'EXT  SET  SCREEN  80.” 

(defines  the  two  key  strokes  PFl  N  to  change  the  terminal  display  to  80  column 
width) 

DEFINE  KEY  GOLD  W  AS  “EXT  SET  SCREEN  132.” 

(defines  the  two  key  strokes  PFl  W  to  change  the  terminal  display  to  132 
column  width) 

SET  SCREEN  72 

(sets  the  display  width  to  72  columns) 
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SET  WRAP  72 

(sets  the  editor’s  feature  of  swapping  terminal  entries  beyond  column  72  into 
the  next  line) 

SET  MODE  CHANGE 

(causes  the  EDT  editor  to  change  to  screen  editing  mode  automatically  at  the 
onset  of  the  editing  session) 

Section  IV.B.3:  VAX/CRAY  Status 

It  is  useful  to  define  mnemonic  acronyms  for  the  monitoring  functions  of  the  VAX 
and  CRAY  computer  systems.  Some  frequently  used  definitions  from  the  LOGIN.COM- 
file  of  the  author  are: 

CRAY: 

$  CSO  :**  ’CRAY  STATUS/OWN 
(see  subsection  I.B.5.3  for  details) 

VAX: 

$  CNRL  ==  '‘MON  CLU/INT*1 '  * 

(to  monitor  the  work  load  distribution  between  the  four  front-end  VAXes) 

$  MSYS  «  * ‘MONITOR  SYSTEM" 

(to  monitor  the  CPU  (computing),  memory,  and  I/O  (data  input/ouput)  load  of 
the  VAX  in  use) 

$  MTOP  ==  ‘ ‘MONITOR  PROCESSES  /TOPCPU" 

(to  monitor  the  list  of  VAX-pnx esses  with  the  highest  CPU  demand) 

$  Sq  «  “SHOW  qUEUE/DEVICE" 

(to  list  the  queue  entries  on  all  devices) 

Section  IY.B.4:  CRAY  Crease 

There  are  ways  of  making  the  interaction  with  the  CRAY  computer  more  conve¬ 
nient  and  speedy.  For  example,  the  submission  of  batch  jobs  can  be  simplified  by  using 
the  command  CBATCH  in  combination  of  several  mnemonic  acronyms.  CBATCH  is  a  CCF 
command  that  allows  one  to  eliminate  the  obligatory  JOB  and  ACCOUNT  command  line 
from  all  job  files  by  automatically  attaching  a  file  that  contains  those  two  command 
lines  in  an  encrypted  form.  The  file  is  named  $CRAY$. ACCOUNT  and  resides  in  the 
user’s  root  directory.  It  is  automatically  generated  the  first  time  CBATCH  is  used.  For 
details  on  this  command 
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type: 


HELP  CBATCH  < 


Every  batch  job  that  is  submitted  to  the  CRAY  computer  is  placed  into  a  class  of  jobs 
that  are  similar  in  memory  size  and  priority  requirements.  There  are  four  classes  with 
regard 

to  job-size:  small  =  up  to  511000  CRAY  words 

medium  =  up  to  1023000  CRAY  words 
large  =  up  to  1535000  CRAY  words 
x-large  =  up  to  3071000  CRAY  words 

and  three  subclasses  of  the  four  with  regards  to  the  requested 
priority  level:  express  charged  1.5, 
normal  charged  1.0, 
defered  charged  0.7 

times  the  price  of  $900.00  per  hour  of  CPU  usage. 

To  submit  a  job  quickly  and  conveniently  while  at  the  same  time  specifying 
these  details,  the  following  definitions  may  be  found  helpful  when  present  in  the 
LOGIN. COM-file: 


$  CBDS 
$  CBDM 
$  CBDL 


==  CBATCH/ JUS=DEFER/MFL=5 1 1000/AC= - 


==  CBATCH/ JUS=DEFER/MFL=1023000/AC* - 


”  CBATCH/ JUS=DEFER/MFL=1536000/ACa 


$  CBDXL  :==  CBATCH/ JUS=DEFER/MFL*307 1000/AC= - 


$  CBNS 
$  CBNM 
$  CBNL 


==  CBATCH/ JUS=N0RMAL/MFL*511OOO/AC=- 


==  CBATCH/ JUS=N0RMAL/MFL=lO23OOO/AC= - - - 
==  CBATCH/ JUS=N0RMAL/MFL=1 535000/ AC= - - - 


$  CBNXL  :==  CBATCH/ JUS=N0RMAL/MFL=3O71OOO/AC= - 

$  CBXS  :==  CBATCH/ JUS=EXPRESS/MFLs511000/AC= - 

$  CBXM  :«  BATCH/ JUS=EXPRESS/MFL=1023000/AC= - 

$  CBXL  :==  CBATCH/ JUS-EXPRESS/MFL-1535000/AC— 

$  CBXXL  :**  CBATCH/ JUS=EXPRESS/MFL=3071000/AC=-- 

which  have  to  be  completed  with  the  appropriate  charge  account  number  following  the 
AC=  parameter.  With  these  acronyms,  the  submission  of  a  batch  job  becomes  quite 
simple.  Since  the  CBATCH  command  expects  a  .JOB-file,  the  file  extension  (which  is 
.JOB)  can  even  be  omitted.  So,  for  example,  to  submit  a  small  batch  job  that  deletes 
a  file  from  CRAY  storage,  one  need  only 


s 

3 

p; 

I 


type:  CBDS  CDELET  < 

or  to  run  a  particular  full  scale  Raman  interaction  simulation 
type:  CBDXL  CRGI  < 

These  batch  jobs  are  assumed  to  take  less  than  60  seconds  of  CPU  time  for  com¬ 
pletion.  Should  more  CPU  time  be  required,  provide  the  /T=400  parameter  to  allow 
maximally  400  seconds  of  CPU  time  for  execution.  For  example 

CBDXL/T=400  CRGI 

Note:  be  generous  with  the  time  limit  to  aviod  having  to  rerun  (and  pay  again)  the 
whole  job  for  lack  of  time  allocation. 

If  the  maximal  memory  requirement  is  known  from  the  CPR-file  of  a  previous  run 
with  the  same  dimensions,  the  right  job  class  can  be  chosen.  To  choose  the  right  class, 
one  should  consider  also  the  system’s  limit  of  how  many  jobs  of  a  certain  class  can  run 


simultaneously.  These  are: 


service  class 

resource  class 

max.  jobs 

priority 

express 

small 

12 

9 

express 

medium 

6 

9 

express 

large 

2 

9 

express 

xlarge 

2 

9 

normal 

small 

10 

6 

normal 

medium 

4 

6 

normal 

large 

2 

6 

normal 

xlarge 

2 

6 

normal,  long  time 

small 

10 

6 

normal,  long  time 

medium 

4 

6 

normal,  long  time 

large 

2 

6 

normal,  long  time 

xlarge 

2 

6 

defered 

small 

5 

3 

defered 

medium 

2 

3 

defered 

large 

2 

3 

defered 

xlarge 

2 

3 

The  meaning  of  the  normal,  long  time  class  is  subtle  and  should  not  concern 
the  user,  except  that  the  job  will  be  counted  in  the  long  time  class  if  more  than  300 
seconds  CPU  time  are  requested.  To  find  out  how  full  the  desired  class  currently  is 
type:  CRAY  < 

following  the  standard  VAX/VMS  DCL  prompt:  $.  Then  the  screen 
prompts:  CRAY> 


$ 

I 

T 

S 

| 

$ 


a 


type: 


STATCLASS  < 


which  will  be  responded  with  a  table  of  the  current  job  class  demand.  To  scroll  down 
type:  +  < 

To  scroll  up 
type:  -  < 

To  exit  the  display 
type:  EXIT  < 

prompts:  $ 

Section  IV.B.5:  Money  Savers 

Some  methods  follow  that  will  reduce  the  cost  of  computing.  Generally,  The  most 
important  money  saver  is  the  algorithm  itself.  To  use  the  most  efficient  numerical 
scheme  for  obtaining  the  results  of  any  computation  is  the  key  to  low  cost.  Other 
methods  usually  provide  only  a  fraction  of  the  possible  savings.  Some  of  those  methods 
are  mentioned  here. 

The  program  RAM2D1  comes  in  two  versions:  RAM2D1C  and  RAM2D1D.  They 
differ  only  in  their  memory  requirements.  In  two-dimensional  operation  the  three 
megaword  random  access  memory  (RAM)  capacity  of  the  CRAY  X-MP  machine  often 
is  exceeded.  For  simulations  of  this  size  one  needs  to  use  RAM2D1D.  That  version  keeps 
only  two  work  arrays  in  memory  and  stores  intermediate  results  of  the  computation 
on  CRAY  disk  memory  at  the  expense  of  voluminous  data  input  and  output.  The 
associated  high  I/O  charges  can  be  saved  by  using  RAM2D1C  whenever  possible. 

One  can  save  30  percent  of  the  CPU-charges  by  running  the  job  with  prior¬ 
ity  =deferred  rather  than  priority =normal  (see  section  IV. B. 4  for  details).  This  change 
did  not  appear  to  alter  the  job  turnaround  time  noticeably.  Running  a  small  job 
with  priority=express  is  more  expensive  but  also  not  very  noticeable  in  terms  of  job 
turnaround  time,  since  only  the  CPU  processing  is  prioritized,  not  the  file  transfer. 

Savings  result  also  from  the  use  of  tape  storage  rather  than  disk,  for  long  term 
file  storage.  These  savings  can  be  significant  if  the  file  is  stored  for  a  long  length  of 
time.  The  biggest  savings  are  obtained  if  the  file  under  consideration  for  storage  can 
be  discarded  altogether  rather  than  stored.  This  decision  requires  extreme  prudence. 
Here,  one  can  easily  save  pennies  but  waste  dollars  when  having  to  regenerate  the 
discarded  dataset. 

PART  IV.C  TROUBLE  SHOOTING 

For  all  sorts  of  invincible  obstacles,  the  user  will  find  ample  support  from  the  CCF 
consultants.  They  can  be  reached  by  phone:  (202)  767-3542  or  (202)  767-1374.  One  can 


m 


WVI 


also  send  them  a  message  over  the  VAX  MAIL  facility  (type:  HELP  MAIL  for  details; 
when  prompted  for  the  recipient  type:  CONSULTANT).  For  all  problems,  especially 
regarding  the  codes  RAM2D1  and  PRAMl,  the  user  may  wish  to  call  Dr.  Godehard 
Hilfer  at  (202)-767-2028. 

Problems  that  arise  during  the  execution  of  the  programs  on  the  CRAY  computer 
will  be  documented  at  the  end  of  the  CPR-file  before  the  accounting  section.  For  details 
on  the  error  message,  one  may  wish  to  read  the  description  for  the  given  error  number 
in  the  CRAY  operating  system  (COS)  message  manual. 

Problems  that  arrise  from  the  use  of  the  VAX  axe  usually  indicated  by  on-the- 
screen  error  messages  that  will  indicate  the  nature  of  the  problem. 

If  RAM2D1  compiles  and  runs  without  any  apparent  error,  then  one  has  no  indica¬ 
tion  that  the  datafile  is  incorrect.  If  then  PRAMl  also  compiles  and  runs  fine  without 
any  apparent  error  but  fails  to  produce  a  graph,  or  produces  some  graphs  as  expected 
but  others  not  at  all  or  only  in  part,  then  one  should  first  check  the  input  data  to 
PRAMl,  especially  the  elements  of  the  array  CSEC.  Another  suspicion  should  be  that 
the  wrong  dataset  on  the  CRAY  disk  was  used.  Hence,  one  should  check  the  existence 
of  the  desired  datafile,  the  dimensions,  date,  and  edition  number  of  the  file  as  specified 
in  the  input  data  file,  the  input  namelist,  and  the  program.  If  all  looks  well,  one  can 
rerun  PRAMl,  but  requesting  only  one  of  those  graphs  that  did  not  come  out  right 
previously  to  narrow  the  possible  sources  of  error. 

If  PRAMl  ran  without  producing  a  PLT2 .  DAT  file  the  CPR-file  might  report:  SY001 
-  RLS  COULD  NOT  FIND  A  DNT  FOR  META,  which  indicates  that  the  META-file  (=DIS- 
SPLA  terminology  for  the  device  independent  graphics  file  PLT2.DAT)  was  not  created 
or  was  created,  remained  empty,  and  was  as  such  discarded,  and  hence  unavailable  for 
transfer.  It  rnay  also  turn  out  that  the  file  was  held  back  on  the  CRAY  since  there 
was  no  room  in  the  VAX  directory.  Confirm  the  latter  by  typing  the  command  SHOW 
QUOTA  and  delete  old  files  if  necessary. 

If  the  execution  of  the  program  seems  to  take  an  unexpected  amount  of  time,  it  is 
likely  to  be  due  to  the  general  overload  of  the  computer  system  or  the  network  rather 
than  due  to  a  problem  with  the  codes.  To  inquire  the  computer  system  performance 
use  the  commands  presented  in  section  IV.B.3.  In  addition  to  those  commands,  one 
can  check  if  the  submitted  process  is  being  worked  on  which  is  reflected  in  an  in¬ 
crease  in  CPU  time  used.  The  VAX  CPU  time  can  be  monitored  at  any  time  by  typing 
T  (  =  Ctrl  T).  Caution  must  be  exercised  that  the  T-key  is  hit  and  not,  by  accident,  the 


K-key,  which  would  terminate  the  execution.  Anagologously,  the  CRAY  CPU  time  is 
listed  when  monitoring  the  status  of  one’s  own  CRAY  job  by  typing  CRAY  STATUS/OWN 
(CSO).  Both,  *  T  on  the  VAX  and  CSO  on  the  CRAY  indicate  what  the  computer  is 
currently  doing. 

PART  IV.D  CRAY  RUN  SPECIFICATIONS 

The  following  contains  the  vital  statistics  of  RAM2D1C  examples.  The  columns 
are  numbered  and  contain  the  following  information:  (recall  1  CRAY  word  =  8  bytes 
=  64  bits) 

1.  encrypted  dimensions 

2.  time  dimension  (NT) 

3.  transverse  space  dimension  (NY) 

4.  maximum  job  size  when  executing  ( mega-words ) 

5.  time  executing  in  CPU  for  first  z-step,  2  data  drops  ( seconds ) 

6.  time  executing  in  CPU  for  2000  z-steps,  2  data  drops  in  1-D,  21  data  drops  in  2-D 
(seconds) 

7.  CPU  time  required  for  compilation  ( seconds ) 

8.  maximum  job  size  when  compiling  (mega-words) 

9.  size  of  typical  output  data  file  with  2  data  drops  in  1-D,  and  1  data  set  in  2-D 
(mega-words) 

RAM2D1C 


799.75 

2.23 

852.00 

2.21 

405.77 

2.14 

201.67 

2.01 

12.08 

2.06 

6.11 

2.07 

3.11 

2.06 

1.63 

2.06 

28.63 

2.11 

14.93 

2.17 

7.39 

2.18 

3.60 

2.15 

The  following  contains  the  vital  statistics  of  PRAMlCD  examples.  The  columns 
are  numbered  and  contain  the  following  information: 

(recall  1  CRAY  word  =  8  bytes  =  64  bits 
1  VAX  block  =  512  bytes 

1.  encrypted  dimensions 

2.  time  dimension  (NT) 

3.  transverse  space  dimension  (NY) 

4.  maximum  job  size  when  executing  (mega-words) 

5.  time  executing  in  CPU  for  one  graph  (seconds) 

6.  time  executing  in  CPU  for  10  graphs  (seconds) 

7.  CPU  time  required  foi  compilation  (seconds) 

8.  maximum  job  size  when  compiling  (mega-words) 

9.  size  of  typical  PLT2.DAT  file  with  1  graph  (blocks) 

10.  size  of  typical  PLT2.DAT  file  with  10  graphs  (blocks) 


PRAMlCD 


2. 

3. 

512 

128 

256 

256 

256 

128 

128 

128 

2048 

1 

1024 

1 

512 

1 

256 

1 

1.917  11.33  5.917 

1.279  8.88  5.596 

.827  6.80  5.63 

.523  3.78  5.504 


.355  3.08  9.20 
.253  2.23  9.23 
.116  1.74  9.24 
.162  1.43  9.19 


2.70  8.699 

2.17  9.223 

1.65  9.20 

1.56  8.81 


1 


512 

256 


15 

13 
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APPENDICES 
Appendix  A 

The  appendices  A-C  present  five  examples  of  what  the  typical  input  to  and  output 
from  RAM2D1  and  PRAMl  looks  like.  The  input  data  files,  N — .DAT,  must  not 
contain  any  character  in  the  first  column  of  any  line!  (This  is  not  visible  in  the  examples 
shown.)  All  characters  start  in  column  2  and/or  the  following  columns.  The  input  data 
are  grouped  in  so  called  namelists  (variables  between  two  consecutive  $-signs.  The 
character  strings  following  the  first  $-sign  is  the  name  of  the  namelist.  The  complete 
list  of  variables  of  each  namelist  is  evident  from  the  code  listings.  The  possible  values 
for  these  variables  and  the  implications  of  these  values  are  explained  there  in  the 
commentary  preceeding  the  routine  (or  subroutine)  where  the  variable  is  used.  For 
brevity’s  sake,  four  pages  of  the  PLT2.DAT  graphics  output  file  are  reproduced  on  a 
single  page  here.  Even  this  reduction  of  volume  was  insufficient  in  Example  B2.  Hence, 
example  B2  shows  only  a  choice  of  the  plots  that  result  from  the  given  input  data. 

APPENDIX  A  1-D  Transient  Limit;  Examples 

Two  examples  are  appended  to  show  code  operation  in  the  transient  limit.  The 
illustration  features  the  batch  job  command  files,  the  input  data  files,  the  ouput  CPR- 
files  and  the  resulting  output.  The  first  example  is  a  run  that  illustrates  the  basic  use  of 
the  codes  without  complications  or  finess.  The  second  example  illustrates  how  several 
one-dimensional  simulations  can  be  done  while  running  the  programs  only  once. 

EXAMPLE  A1 


<fjy 

*»A* 


XB.Jl.JOB 


AUDIT . 

ACCESS ,  DN=XRJ1 . 

FETCH ,  DN=NRAM , TEXT= • NRJ1 . DAT ' . 

XRJ1 . 

DISPOSE ,  DN=ERRM, DF=BB, WAIT, TEXT= ' XRJ1 . MSG . ' 
AUDIT. 

EXIT. 


XPJ1.JOB 


AUDIT. 

ACCESS,  DN=XPJ1 . 

ACCESS,  DN=DISLIB, ID=DISSPLA, OWN=LIBRARY . 
ACCESS ,  DN=INTLIB, ID»DISSPLA, OWN=LIBRARY . 
ACCESS,  DN=DVSD, ID=DISSPLA, OWN=LIBRARY . 
FETCH ,  DN=NPRAM1 , TEXT= • NPJ1 . DAT ' . 

XPJ1. 

DISPOSE,  DN=META,DF=BB, WAIT, TEXT= ' PLT2.DAT' . 
DISPOSE,  DN=EPRM,DF=BB, WAIT, TEXT='XPJ1. MSG. ' 
DISPOSE ,  DN=DISOUT , DF=BB , WAIT , TEXT= *  XPJ1 . DSP 
AUDIT. 

EXIT. 

DISPOSE,  DN=EPRM,DF=BB, WAIT, TEXT='XPJ1. MSG. ' 
DISPOSE ,  DN=META , DF=BB , WAIT , TEXT= ' PLT2 . DAT ' . 
DISPOSE ,  DN=DISOUT , DF=BB, WAIT, TEXT= ' XPJ1 . DSP 
DUMP JOB. 

DEBUG ,  BLOCKS=GRAPHS . 


AUDIT. 

ACCESS,  DN=XPJ1. 

ACCESS,  DN=DISLIB,ID=DISSPLA,OWN=LIBRARY. 
ACCESS ,  DN=INTLIB, ID=DISSPLA , OWN= LIBRARY . 
ACCESS ,  DN=DVSD , ID=DISSPLA , OWN=LI BRARY . 
FETCH,  DN=NPRAM1,TEXT=* NPJ1.DAT' . 

XPJ1. 

DISPOSE,  DN=META,DF=BB, WAIT, TEXT= ' PLT2.DAT' . 
DISPOSE,  DN=EPRM,DF=BB, WAIT, TEXT='XPJ1. MSG. ' 
DISPOSE ,  DN=DISOUT , DF=BB , WAIT , TEXT= ' XPJ1 . DSP 
AUDIT. 

EXIT. 

DISPOSE ,  DN=EPRM , DF=BB , WAIT , TEXT= ' XPJ1 . MSG . ' 
DISPOSE,  DN=META,DF=BB, WAIT, TEXT= ' PLT2.DAT' . 
DISPOSE ,  DN=DISOUT , DF=BB , WAIT , TEXT= ' XPJ1 . DSP 
DUMPJOB. 

DEBUG ,  BLOCKS=GRAPHS . 


NRJ1.DAT 


$NAML 

RINT(1)-1 .0, 
RIST-1 .  0E-8 , 
ICOND-3 , 
ZPINAL-100.0, 
ZKEEP-50.0, 


1 

2 


NAMEL I ST/NAML/NPUMP , YM . TM . Z I NT , RKP . RKS . YOFT . TOFF . YWI OTH . TWI OTH 
YOST , TOST . YWST . TWST . R I NT . R I ST . RAMASM . RALASM . NHYP . PHL . PHST  TOC 
ITYPE.RTYPE.RABAMP , RDSLIM, ICONO , ZSTEP, ZFINAL , ZKEEP, NMAX , TTWO.GAIN 


* 


* 


NPJ1.DAT 


0 

tFLOATE 
OONYET-1 . 

MONTH-04 . 

DAY-18. 

YEAR-88 , 

I PART- 1 . 

NEDN— 1 . 

%  n 

SCONDAT 

LPRMT ( 1 )— 1 . 

LPRMTl 2 J-1 . 

LPRMT13 )— 1 , 

LPRMT (4)-1 . 

NSEC-1 . 

CSEC(1 , 1)-(1 • 0.2.0), 

CSEC(2.1)-<1 .0,2.0). 

CSEC(3,1)-<1 .0.2.0),  4 

CSEC(7.1)-(1 .0.2.0). 

CSEC(8,1)-<1 .0.2.0) . 

CSEC(9.1)-<1 .0.2.0). 

CSEC(13.1)-(1 .0.2.0), 

CSEC(14.1)-(1 .0,2.0) . 

CSEC( 1 5. 1  )— ( 1 .0.2.0). 

% 

$ZP LOT  a 

KZ 
KZ 
KZ 

$ 

$RMPLT 

$ 


J 


1)-1. 
2)-2 . 
3)-3 . 
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XRJ1.CPR 


09 

02 

0  0 

05  15 

0  0000 

CSP 

09 

02 

06 

0518 

0  0000 

CSP 

■  WELCOME  TO  THE  URL  CRAY  XM? 

09 

02 

06  . 

0521 

0-0000 

CSP 

09 

02 

06 

05  26 

0 . 0001 

CSP 

*  The  CRAY  vi ll  he  unavailable  Sunday  April  24  from  8:00 

A  M 

to  4 

00 

P  M 

09 

02 

06 

0529 

0  0001 

CSP 

*  for  software  testing 

09 

02 

06 

0534 

0  0001 

CSP 

•  There  will  be  no  CRAY  off-line  data  set  recalls  on  Tuesday 

or  Wednesday 

09 

02 

00 

0537 

0 . 0001 

CSP 

'  mornings  between  2.00  AM  and  7:00  AM  in  order  for  us 

to  perform 

CLEANUP 

09 

02 

06 

0539 

0  0001 

CSP 

'  runs  on  our  CRAY  archive  tape  library 

09 

02 

06 

0564 

0  0002 

CSP 

CRAY  X-MF  SERIAL-«15  65  NAVAL  RESEARCH  LABORATORY 

0  4 

21 

88 

09 

02 

08 

C588 

0  0002 

CSP 

09 

02 

00 

0570 

0  0002 

CSP 

CRAY  OFERATING  SYSTEM  COS  1  15  ASSEMBLY  DATE  01 

04 

88 

09 

02 

09 

0573 

0  0002 

CSP 

09 

02 

00 

0573 

0  0002 

CSP 

09 

02 

08 

3365 

0  0002 

CSP 

JOB . JN-XRJ1  . MEL-5  1 1000 . US -DEFER 

09 

02 

06 

5042 

0.0012 

CSP 

ACCOUNT . AC- . US- . UPW- .  ApW- 

09 

02 

07 

5422 

0  1095 

USER 

AC213  ”  TOTAL  BUDGET  WARNING  LEVEL  REACHED  FOR  THIS  ACCOUNT 

NUMBER 

09 

02 

07 

8300 

0  1120 

USER 

audit 

09 

02 

22 

6940 

0  3453 

USER 

AU003  -  213  DATASETS.  228201  BLOCKS.  1157*8098 

WORDS 

09 

02 

22 

0944 

0  3454 

USER 

AU003  -  83  DATASETS.  48310  BLOCKS.  23894983 

WORDS 

ONLINE 

09 

02 

22 

6949 

0  3455 

USER 

AU003  -  ISO  DATASETS.  179891  BLOCKS.  92051135 

WORDS 

OFFLINE 

09 

02 

22 

7022 

C  3457 

CSP 

ACCESS.  DN-XRJ1 

09 

02 

22 

9035 

0  3457 

PDM 

PDOOO  -  PDN  -  XRJ1  ID  -  ED  -  5 

OWN  - 

HILFER 

09 

02 

22 

9637 

0  3457 

PDM 

PDCOO  -  ACCESS  COMPLETE 

09 

02 

22 

9052 

0  -  3458 

CSP 

FETCH.  DN-NRAM.TEXT-NRJ1.DAT'. 

0  9 

02 

28 

3559 

0  3459 

SCP 

VAX  TO  CRAY:  4SYSTEM -S - NORMAL .  norm*!  successful  completion 

0  9 

02 

28 

3562 

0  3459 

SCP 

VAX  TO  CRAY:  F I LE- S 1 SDUA1 07 : ( H I LrER . FR2 1 NRJ1 . DAT . 21 

09 

02 

28 

3584 

0  3439 

SCP 

VAX  TO  CRAY  416  BYTES  TRANSFERRED 

09 

02 

30 

9535 

0  8489 

SCP 

SS004  -  dataset  received  from  front  end 

09 

02 

31 

2485 

0  3461 

CSP 

XRJ1 

09 

02 

40 

8580 

13 . 0298 

PDM 

PDOOO  -  PDN  -  FX 1 0 42 188  ID  -  ED  -  1 

OWN  - 

HILFER 

0  9 

02 

46 

8582 

13  0298 

PDM 

PDOOO  -  SAVE  COMPLETE 

0  9 

02 

40 

8083 

13  0298 

USER 

UT003  -  EXIT  CALLED  BY  RAM2D1C 

09 

0  2 

40 

8710 

13  0299 

CSP 

DISPOSE.  DN-ERRHDF-BB  WAIT. TEXT-  XRJ1  MSG 

09 

02 

53 

8929 

13  0301 

SCP 

CRAY  TO  VAX:  KRKS - S - NORMAL .  norm»l  successful  completion 

09 

02 

53 

8932 

13  0301 

SCP 

CRAY  TO  VAX:  FILE-S 1 JDUA107 : ( HILFER . FR2 J XRJ1 . MSG : 1 

09 

02 

33 

0935 

13 . 0301 

SCP 

CRAY  TO  VAX:  20  BYTES  TRANSFERRED 

09 

02 

57 

5904 

13 . 0303 

USER 

AUDIT . 

09 

03 

08 

8528 

13  2040 

USER 

AU003  -  21*  DATASETS.  228297  BLOCKS.  115795201 

WORDS 

0  9 

03 

08 

6532 

13  2841 

USER 

AU003  -  a*  DATASETS.  *8*08  BLOCKS.  237**088 

WORDS 

ONLINE 

09 

03 

08 

0536 

13  2042 

USER 

AU003  -  150  DATASETS.  179891  BLOCKS.  92051135 

WORDS 

OFFLINE 

09 

03 

08 

6599 

13  2642 

CSP 

EXIT 

09 

03 

08 

0017 

13  2043 

CSP 

END  OF  JOB 

09 

03 

08 

0019 

13  2643 

CSP 

09 

03 

08 

0622 

13  2643 

CSP 

09 

03 

08 

8352 

13  2644 

USER 

JOB  NAME  -  XRJ1 

09 

03 

08 

8355 

13  2044 

USER 

USER  NUMBER  -  HILFER 

09 

03 

08 

8359 

13  2044 

USER 

JOB  SEQUENCE  NUMBER  -  40324 

09 

03 

00 

8302 

13 . 2644 

USER 

09 

03 

08 

8307 

13  2045 

USER 

TIME  EXECUTING  IN  CPU  -  0000:00:13.2044 

09 

03 

03 

3370 

13 . 2045 

USER 

TIME  WAITING  TO  EXECUTE  -  0000 : 00 : 28 . *189 

09 

03 

08 

8373 

13  2645 

USER 

TIME  WAITING  FOR  I  0  0000:00:22  0885 

09 

03 

•  08 

8370 

13  2045 

USER 

TIME  WAITING  IN  INPUT  QUEUE  -  0000 : 00 : 00  2207 

09 

03 

•  08 

837® 

13  2645 

USER 

MEMORY  *  CPU  TIME  (MWDS'SEC)  -  1  02992 

C  9 

.  03 

:  08 

8383 

13 . 2643 

USER 

MEMORY  '  I  0  WAIT  TIME  iMWDS’SEC!  -  2.17570 

0  9 

03 

:  08 

8380 

13  2646 

USER 

MINIMUM  JOB  SIZE  -WORDS)  -  44344 

09 

.  03 

;  08 

8389 

13 . 2646 

USER 

MAXIMUM  JOB  SIZE  (WORDS)  -  124410 

XRJl.CPR 


1 

is 


isi 

r 


m 


09  : 

03  :  08 

8392 

13  2646 

USER 

09 

03  ;  08 

8395 

13  2646 

USER 

09 

03  :  08 

8398 

13  2646 

USER 

09 

03  :  08 

8401 

13  2646 

USER 

09 

03  08 

8403 

13  2846 

USER 

09 

03  •  08 

8408 

13  2646 

USER 

09 

03  :  08 

8411 

13 . 2646 

USER 

09 

03  :  08 

8414 

13  2640 

USER 

09 

03  :  08 

8417 

13  2640 

USER 

09 

03  :  08 

8421 

13  2047 

USER 

09 

03  :  08 

8424 

13  2647 

USER 

09 

03  •  08 

8427 

13  2047 

USER 

09 

03  :  08 

8430 

13 . 2647 

USER 

09 

03  :  08 

8434 

13  2647 

USER 

09 

03  :  08 

8437 

13 . 2647 

USER 

09 

03  :  08 

8440 

13 . 2647 

USER 

09 

03  :  09 

1518 

13  2724 

USER 

09 

03:09 

1520 

13 . 2724 

USER 

09 

03  :  09 

1524 

13  2725 

USER 

0  9 

03  :  09 

1527 

13  2725 

USER 

09 

03 . 09 

1531 

13  2720 

USER 

09 

03  :  09 

1534 

13  2727 

USER 

09 

03  ■  09 

lS^a 

13  2728 

USER 

09 

03  :  09 

1582 

13  2729 

USER 

09 

03:09 

1585 

13 . 2730 

USER 

09 

03:09 

1589 

13  2732 

USER 

09 

03  :  09 

1593 

13  2733 

USER 

39 

03:09 

1597 

13  2734 

USER 

09 

03  ■  09 

1800 

13  2735 

USER 

09 

03  :  09 

1804 

13  2730 

USER 

09 

03  :  09 

.  1806 

13  2736 

USER 

09 

03  :  09 

.  1609 

13  2730 

USER 

MINIMUM  FL  < WORDS j 
MAXIMUM  FL  -  WORDS  i  * 

MINIMUM  JTA  ( WORDS )  - 
MAXIMUM  JTa  (WORDS)  - 
DISK  SECTORS  MOVED  - 
FSS  SECTORS  MOVED  - 
USER  I  0  REQUESTS  - 
USER  I  0  SUSPENSIONS  - 
OPEN  CALLS  - 
CLOSE  CALLS  - 

MEMORY  RESIDENT  DATASETS  - 
TEMPORARY  DATASET  SECTORS  USED  - 
PERMANENT  DATASET  SECTORS  ACCESSED  - 
PERMANENT  DATASET  SECTORS  SAVED  - 
SECTORS  RECEIVED  FROM  FRONT  END  - 
SECTORS  QUEUED  TO  FRONT  END  - 


•••  COST  TABLE  FOR  THIS  JOB 

JOBNAME  - 

USER  IDENT. - 

BEGAN  EXECUTION  -  THU  APR  21. 

AT  A  PRIORITY  OF 
AND  JOB  CLASS  OF  -- 

13  271129  SECONDS  OF  CPU  TIME  £  S  630.0 

1  630306  MEMORY  *  CPU  (MWRD-SEC)  £  S  84.0 

2  177428  MEMORY*  I  O  (MWRD-SEC)  £  S  84  0 

0  002303  I  O  MEGASECIORS  MOVED  £  S  84.0 

0000000  TAPE  MOUNT(S>  9  S  50 


XRJ1 

HILFER 


HU  APR  21 . 

1988 

09:02: 05 

•  3 

DSMALL 

HOURS 

a  s 

630  00 

HR 

s 

2  32 

a  j 

84.00 

HR 

$ 

0 . 04 

£  S 

84 . 00 

HR 

% 

0  05 

£  t 

84 . 00 

EA 

$ 

0  19 

a  t 

5  00 

EA 

t 

0  00 

THIS 

JOB 

■  It! 

i 

2.00 

09 

03  27 

5941 

09 

03 . 27 

3944 

09 

03  :  27 

5947 

09 

03  :  27 

5950 

09 

03  :  27 

5953 

09 

03:27. 

5955 

09 

03  :  27 

5958 

09 

03 . 2^ 

5981 

09 

03  27 

5983 

09 

03  :  27 

5980 

09 

03  :  27 

5989 

09 

03  :  27 

5972 

09 

03  :  27 

5993 

09 

03  •  27 

3998 

09 

03  27 

5999 

09 

03  •  27 

0002 

09 

03  :  27 

6004 

09 

03  :  27 

6122 

09 

03  :  27 

8470 

09 

03  :  28 

^831 

09 

03  :  29 

0537 

09 

03  :  40 

1793 

09 

03  :  40 

1797 

09 

03  :  40 

1801 

09 

03  :  40 

1875 

09 

03  :  40 

4032 

09 

03  :  40 

4034 

09 

03  ■  40 

4052 

09 

03  40 

7388 

09 

03  :  40 

7390 

09 

03  :  40 

7408 

09 

03  :  40 

97*4 

09 

03  :  40 

9787 

09 

03  40 

9805 

09 

03:41 

2152 

09 

03  :  41 

2154 

09 

03  :  41 

2170 

09 

03  :  43 

0104 

09 

03  :  43 

0107 

09 

03  :  43 

0111 

09 

03:47 

1131 

47.3985 
47  9514 
4*7  9519 
02  1912 
02  1938 

17  83-75 
17  8378 
17  8381 
24  4378 
29  4988 
29  4988 
29  4991 
33  ’7488 
38  9871 
38  5874 
38  587-7 
43  1980 
54  3707 
54  3711 


0  0000 
0  0000 
0  0000 
0  0001 
0 . 0001 
0.0001 
0  0001 
O  0001 
0  0001 
0  0001 
0  0001 
0 . 0002 
0.0002 
0  0002 
0  0002 
0  0002 
0  0002 
0  0002 
0 . 00X4 
0 . 1099 
0  •  1131 
0  3484 
0  3405 
0  -  3406 
0 . 3408 
0 . 3498 
0  3408 
0  3472 
0  3472 
0  3472 
0 . 3470 
0  3476 

0  3470 
0  3479 
0  3450 
0  3480 
0 . 3480 
0  3482 
0  3402 
0  3402 
0 . 3482 
0.3483 
0  3516 
0  3518 
1 3  5244 
13  5244 
13  5247 
13  5247 
13  5247 
13  5247 
13  5249 
13  5249 
13  5249 
13 . 5950 
13 . 5899 
13  5252 
13 . 5252 
13  5258 
13  7000 
13 . 7801 


XPJl.CPR 


WELCOME  to  THE  NRL  CRAY  XMP 


me  CRAY  win  be  unavailable  Sunday  April  24  from  8:00  A  M.  to  4:00  P  M. 
for  software  testing. 


There  will  be  no  CRAY  off-line  data  set  recalls  on  Tuesday  or  Wednesday 
mornings  between  2:00  AM  and  7:00  AM  In  order  for  us  to  perform  CLEANUP 
runs  on  our  CRAY  archive  tape  library. 


CRAY  X-M?  SERIAL-415  65  NAVAL  RESEARCH  LABORATORY  04  21  88 


CRAY  OPERATING  SYSTEM 


COS  1  15  ASSEMBLY  DATE  01  04  88 


JOB . JN-XPJ1 . MFL-51 1000 . US -DEFER . 
ACCOUNT , AC- . US- . UPW- . A?w- . 


AC213  - 
AUDIT . 

AU003  -  214  DATASETS.  228297  BLOCKS.  11S79S201  WORDS 

AU003  -  04  DATASETS.  48408  BLOCKS.  23744088  WORDS 

AU003  -  150  DATASETS.  179891  BLOCKS.  92051135  WORDS 

ACCESS.  DN-XPJ1. 

PDOOO  -  PDN  -  XPJ1  ID  -  ED  -  39  OWN 

PDOOO  -  ACCESS  COMPLETE 

ACCESS .  DN-DISLIB . ID-DISSPLA . OWN -LIBRARY 

PDOOO  -  PDN  -  DISLIB  ID  -  DISSPLA  ED  -  1  OWN 

PDOOO  -  ACCESS  COMPLETE 

ACCESS .  DN-INTLIB . ID-DISSPLA . OWN-LIBRARY . 

PDOOO  -  PDN  -  INTLXB  ID  -  DISSPLA  ZD  -  1  OWN 

PDOOO  -  ACCESS  COMPLETE 

ACCESS .  DN-DVSD . ID-DISSPLA . OWN-LIBRARY 

PDOOO  -  PDN  -  DVSD  ID  -  DISSPLA  ED  -  1  OWN 

PDOOO  -  ACCESS  COMPLETE 

FETCH .  DN-NPRAM1 . TEXT-  NPJ1 . DAT ' . 

VAX  TO  CRAY:  ^SYSTEM - s -NORMAL .  normal  successful  completion 
VAX  TO  CRAY:  FILE- J 1 JDUA107 : [ HILFER . FR9 ] NPJ1 . DAT ; 39 
VAX  TO  CRAY:  788  BYTES  TRANSFERRED 

SS004  -  dataset  received  from  front  end 

XPJ1  . 

PDOOO  -  PDN  -  FX10421 88  ID  -  ED  -  1  OWN 

PDOOO  -  ACCESS  COMPLETE 

UT003  -  EXIT  CALLED  BY  PRAM1CD 

DISPOSE.  DN-META .DF-BB .WAIT .TEXT- ' PLT2  DAT' 

CRAY  TO  VAX:  %RMS -S -NORMAL .  normal  successful  completion 
CRAY  TO  VAX:  FIL2-S 1 SDUA107 :( HILFER . FR2 ] FLT2 . DAI ; 2 
CRAY  TO  VAX:  498240  BYTES  TRANSFERRED 
DISFOSE,  DN-EFRM. DF-BB. WAIT. TEXT-  XPJ1 . MSG . ' . 


TOTAL  BUDGET  WARNING  LEVEL  REACHED  FOR  THIS  ACCOUNT 


228297  BLOCKS . 

48408  BLOCKS . 
179891  BLOCKS. 


1 1579520 1  WORDS 
23744086  WORDS 
92051135  WORDS 


ACCESS  . 
PDOOO  - 


ED  - 

39 

OWN 

-  HILFER 

ED  - 

1 

OWN 

-  library 

ZD  - 

1 

OWN 

-  LIBRARY 

ED  - 

1 

OWN 

-  LIBRARY 

ONLINE 

OFFLINE 


VAX  TO  CRAY 
VAX  TO  CRAY 
VAX  TO  CRAY 


CRAY  TO  VAX 
CRAY  TO  VAX 
CRAY  TO  VAX 


4RMS - S -NORMAL .  normal  successful  completion 
FILE- | 1 SDUA107 : [HILFER. FR2)XFJ1  MSG: 1 
3101  BYTES  TRANSFERRED 


DISFOSE,  DN-DISOUT .DF-BB. WAIT .TEXT-  XPJ1 .DSP- 


CRAY  TO  VAX 
CRAY  TO  VAX 
CRAY  TO  VAX 
AUDIT 
AU003  - 
AU003  - 


4RMS -S -NORMAL .  normal  successful  completion 
FXLZ-S 1 SDUA107 : [ HILFER . FR2 ] XFJ1 .DSP ; 1 
688  BYTES  TRANSFERRED 


214  DATASETS . 
84  DATASETS . 


226297  BLOCKS . 
46406  BLOCKS . 


115795201  WORDS 
23744060  WORDS 


swy. 


XPJ1.CPR 


09  04  5*  3"16 
,9  04:54  3"92 
X 9 ■ 0 4 : 3 4  380a 
.«  ,4  34  3809 
;’:;4:54  5811 
;l04  54  5*44 

r<9  04  :  54  5*« 

39,04:34.5*5; 
09:04:54.9*5; 
39:04:5* 
09:04:54  5*8: 
09-04:54  326 
09:04:34-3*8 

09:04:54  32" 

09  04: 54  32" 
09  04  54  523 
09:04:54  52f 
09:04:54  321 
09  :  04  :  54  321 
09:04:54  52 
09-04-54  5* 
09.04:54.52 

09-04:54  55 

00-04:54. 53 
09:04:54.33 
09  04  34  S3 

09.04:34  3: 

09  04:34  3: 
09 ' 04 ' 34  5: 
09  04 : 34  5 
09 : 04 : 34  5 
Q9  04 .34.5 
09  0434  3 
09  04  34  8 
99  04 ' 54  * 
09  04  54  ! 
09 : 04 : 54 ■  I 
09 ■ 04  34  : 
09-0454 
9904  54 
09  04  54 
09 • 04' 34 

09-04:34 
09-04. 34 
09:04.54 

09  04  54 
0994  54 
n904  54 
09  04 . 54 


3*716 

3*792 

3806 

3809 

3811 

5*4* 

524*7 

5230 

5253 

525" 

5260 
,  3263 

b.  3268 
b  32*72 
I  32*73 
4  32*78 

4  5282 
4  5283 
4  3288 
4  3291 
«  saw* 

>4.5298 

14  3301 
14.5333 
5*  33-79 
54  53*79 
54  538* 

5*  3385 
54  5389 
54  539* 

54  5393 
54  5398 
34  3*01 
34  83*73 
■54  85*7*7 
54  8381 

:  54  8334 
54  8386 
.54  8391 
,  34  8393 
,  54  8398 
b -  54  880* 
b  :  5  4  8806 
4.34  8610 
4.34  8613 
4  54  ««i" 
4  54  88*1 
4  54  a  823 
4  54  86*6 


13  "603  U 
13  7603  c 

l3  7803  0 

13  -803  0 

13  "603  0 

13  "60S  l 

13.7603 
13  7603  1 

13  7603 
13  7605 
13  "605 
13  7805 
13 ■ "609 
13 . 7606 
13 . 7606 
13  7809 
13  7608 
13  7806 
13 . 7606 
13  7807 
13  7807 
13  7807 
13  7807 
13  "60" 

13 . 760" 

13  "60" 

13 . "80" 

13  7807 

13  7807 

13  "80" 

13  "90" 

13  "60S 
13  "908 
13  "685 
13  "883 
13  "689 
13 ."689 
13  "68" 
13  "668 

13  '*659 
1 3  "990 
1 3  "691 
13 . "693 
1 3  7894 
1 3  7893 
13  7890 
13  ~69" 
13  769" 
13  "69" 


USE*  A' 

cs?  E: 

CSP  E 

CSP 
CSP 
USES 
USER 
USER 
USER 
USER 
USES 
USES 
USES 
USES 
USES 
USES 
USES 
USER 
USES 
USES 
USER 
USES 
USES 
USES 
USES 
USER 
USES 
USES 
USES 
USES 
USER 
USER 
USER 
USES 
USES 
USES 
USER 
USER 
I  USER 
,  USER 

^  USES 

i  USER 

3  USER 

4  USER 

5  USER 

8  USER 

,7  USES 

>7  USER 

,7  USER 


AU003  - 

EXIT 

EKO  OF  JCs 


150  DaTaSETS . 


179891  BLOCKS  .  92051133  WORDS  OFFLINE 


JOB  NAME  -  HU 

USER  NUMSE!i_'M,,MeES  - 
JOB  SEQUENCE  KUHBES 

00< 

T IRE  EXECUTING  I*  -  00< 

T1HE  WAIT  iso  to  EXECUTE  0o, 

T  THE  «ATTISO  M*  UEUZ  -  00 

tike  WAITI*-!  lr„E  ,hw»s- src  >  - 

•  to  "61*  TIKE  ‘«W0S'SIC’  * 
hehorv  ...  / W01OS  >  - 

MtKIKUK  JOB  SI22  ,  _s>  . 

haximuk  job  s^L(*oW> 

KrStHUH  FI  ' 

KAXIHUH  Ft  (WOWS'  - 
minimum  jta  (V,<:>*d*' 

kaXIKUR  iTA 
DISK  SECTORS  KOVEO  - 
rss  SECTORS  MOVED  - 
USES  I  0  REQUESTS 
USES  I  0  SUSPENSIONS  - 
OPEN  CAttS  - 

Ck'e°kSorxC«s%«t  da . 
temforarv  dataset  Sectors  accessed 
permanent  dataset  sectors  , 


x?Ji 

hiefer 

40330 


■.00:13  "603 

■00-49  1493 
, : 00  22  9""1 
I  ; 00 : 00 . 3499 

3  39919 
2  *7661 
44544 

25393* 

40960 

24934* 

336* 

5120 

30"2 

0 

146* 

1714 

31 

31 

0 

ia" 

2821 

0 

1 

138 


cost'tabie  for  this  JOB 
THU  APR  21* 


13  76"230 
3  399609 
3, *79123 

0 . 0030"* 
0 .000000 


UOBRAKE  - "" 

USER  IDEHT  - 

began  execution 
aT  4  PRIORITY  of  - 

arc  job  CLASS  OF  £ 
SECOMDS  OF  cPVLl>I25r^ 

MfMOQV  •  c?\J  (WWRD-SEC) 

*  0  HEOASECTORS  hoved 

tape  hountisi 


xrJi 

HILFER 

09:03:2" 

3 


TOTAt  COST 


d  ) 

630  00 

K* 

PSMAtt 

2  4X 

0  OB 

9  ) 

84.00 

HR 

0  OB 

d  J 

64  00 

HR 

0 .  ae 

*  $ 

94.00 

EA 

0  00 

•a  * 

5 . 00 

EA 

THIS 

JOB 

$ 

2  81 

K/IKX*  a*  * 


PLT2.DAT  (Example  Al) 


w;st  or  :np ut  swwctess 


„ iST  or  inpu:  phrnmc. ; 


5T  or 

!*Pt,r  P«P«MCTrP^ 

"'ONTO 

e: .  - 

;  .:oc 

2.000 

0.000 

C.QOG 

0.000 

C.30C 

o.xc 

0.000 

C.jOO 

0.000 

O.OOC 

O.OOC 

O.OOC 

:.coc 

o.ox 

o.xo 

puMP:  [NIENS 

; .  occ 

2.00G 

■0.000 

o.oco 

•3 . 300 

O.OGC 

o.ox 

0.000 

0 .300 

0.000 

0.000 

C.OuO 

O.OOC 

O.OOC 

o.ox 

o.ox 

j 

:  .30C 

2.000 

c.oco 

0.300 

0 . 300 

3.000 

c.ox 

o.xo 

1 

3.000 

O.OOC 

C.OX 

G.OOQ 

0.3  QQ 

Q.OGQ 

0.000 

o.ox 

j  stc-M*c*e. 

,  C»P  -  2.00 

O.OOC 

0.000 

c.xo 

o.oco 

0.300 

c.oco 

0.000 

o.ox 

INTEGRAL- 

H.0H2 

0.3CG 

0.000 

0.000 

0.000 

0.000 

0.300 

o.ox 

o.ox 

3.00C 

C.  300 

0 .  occ 

3.300 

c.xo 

3.000 

o.xo 

0.000 

c.oco 

0.000 

0.000 

c.oco 

0.000 

o.oco 

o.xo 

o.xo 

1 

0.000 

O.OOC 

G.QGQ 

0.000 

O.OOC 

0.000 

c.ox 

1  -  H 

3.XC 

0.000 

3.0GC 

3.000 

0.000 

O.OOC 

0.000 

o.ox 

.  jCC 

2 .  :gc 

0  iCC 

:.:co 

3 .  COC 

O.OOC 

o.xc 

o.ox 

■ 

3.000 

O.OOC 

O.OOC 

: .  occ 

c.occ 

c.xo 

o.ox 

o.ox 

i  .  occ 

2 .  OOC 

0.000 

0.000 

C.JGu 

0.000 

0.000 

o.ox 

! 

1  ( 

0.000 

0.000 

0.000 

O.OGC 

O.OOC 

0.300 

0.000 

o.ox 

a  * 

5  .OOC 

2.000 

3.000 

0.300 

0.000 

c.xo 

o.xo 

0.000 

/  \ 

C.GOG 

0.300 

0.000 

0.000 

0.300 

o.xo 

o.ox 

0.000 

1 

O.OOC 

O.OOC 

0.000 

0.000 

0.000 

0.000 

o.ox 

o.ox 

i  “  1 

\ 

0 .  OOC 

0.000 

0.000 

0.000 

o.oco 

o.xo 

o.ox 

o.ox 

!  \ 

c.occ 

3 .  300 

C.000 

3.000 

O.OOC 

3. 300 

3.300 

C.OQO 

s°i 

\ 

0 . 000 

•3.30c 

0  000 

0.000 

O.OOC 

C.QGC 

c  xc 

0  000 

i  \ 

C  .000 

O.OOC 

O.GQC 

O.wCC 

-.000 

o.ox 

c.ox 

\ 

■j  .  occ 

juG 

0-  vaaj 

u .  uuG 

•j .  ooc 

c.occ 

o.ox 

o.ox 

:  .oc: 

2.000 

0.300 

3.00C 

c.occ 

0.3CG 

o.ox 

c.ox 

e  " 

\ 

o.xo 

3.000 

0.000 

0.000 

0.300 

0.300 

o.xc 

G.oon 

\ 

.  .  OOC 

2.000 

O.OOC 

0 .  uOw 

•„ .  ooc 

c  occ 

c.000 

0.300 

3.000 

O.OOC 

0.000 

3.000 

O.OOC 

c.occ 

o.ox 

o.ox 

■ .  coc 

2  000 

3.3CG 

c.occ 

'  X1* 

"  '-*f. 

3.  OOC 

o.xo 

1  "  1 

j .  000 

3. OX 

0  300 

c .  000 

;  :oc 

‘ .  3C0 

o.ox 

o.xo 

i  0 1 

O.OOC 

0 . 000 

0.000 

c.occ 

;  ooc 

:  ox 

\ 

J.OOQ 

3.000 

C.uOG 

u  .  jGu 

•  J  oC 

- .  -OC 

•3 .  OOG 

0  300 

1  1 

:  ooc 

:  ooc 

O.OOC 

O.OOC 

'  3  ■  - 

•„*  c. 

c  000 

: .  000 

0.000 

0.000 

O.OGC 

;  occ 

- .  occ 

:  coo 

3.000 

_ 

O.OOC 

0.000 

O.OOC 

Z .  QCC 

3 ,  OOC 

0  .OOv 

-  ■  3Co 

c.ox 

-lOD 

-SO  2 

T.^E  'PICO-5CCONC5 


U  ISNUNI 


PLT2.DAT  (Example  Al) 


CRJ3.JOB 


AUDIT. 

FETCH,  DN=RJ 3 , TEXT= ' RAM2D1C . FOR ' . 

CFT ,  I =R J  3 , ON= INZ . 

LDR ,  AB=XRJ  3 , NX . 

SAVE,  DN=XRJ  3 . 

FETCH,  DN=NRAM , TEXT= ' NR J  3 . DAT '  . 

XRJ  3  . 

DISPOSE ,  DN=ERRM , DF  =  BB , WAIT , TEXT= ' CRJ  3 . MSG 
AUDIT. 

EXIT. 

DISPOSE,  DN=ERRM , DF  =  BB , WAI T , TEXT= ' CRJ  3 . MSG 
DUMP JOB . 

DEBUG,  BLOCKS— VI NIT . 


CPJ3.JOB 


AUDIT. 

ACCESS,  DN=DISLIB , ID=DISSPLA, OWN= LIBRARY. 
ACCESS,  DN=INTLIB, ID=DI SSPLA , OWN=LI BRARY . 
ACCESS,  DN=DVSD , I D=DI SSPLA , OWN* LI BRARY . 
FETCH,  DN=PJ3,TEXT='PRAM1CD.F0R' . 

CFT ,  I  =  PJ  3 , ON=INZ . 

LDR,  LIB=INTLIB: DISLIB ,NX,AB=XPJ3 . 

SAVE,  DN=XPJ  3 . 

RELEASE,  DN=P  J  3 . 

FETCH,  DN=NPRAM1 ,TEXT='NPJ3 .DAT' . 

XPJ3  . 

DISPOSE ,  DN=META, DF=BB , WAIT , TEXT= ' PLT2 . DAT 
DISPOSE,  DN=EPRM , DF =BB , WAIT , TEXT* ' CP J3 . MSG 
DISPOSE ,  DN=META , DF=BB , WAIT , TEXT* ' CPJ3 . DSP 
AUDIT. 

EXIT. 

DISPOSE,  DN=EPRM, DF=BB , WAIT, TEXT* ' CPJ3 . MSG 
DISPOSE,  DN=META , DF=BB , WAIT , TEXT* ' PLT2 . DAT 
DISPOSE ,  DN=META , DF*BB , WAIT , TEXT* ' CP J  3 . DSP 
DUMP JOB. 

DEBUG,  BLOCKS=GRAPHS . 


NR  J  3. DAT 


SNAML 

TOFF ( 2  )  =  30 . 0 , 

TWIDTH { 2 ) =20 . 0 , 

RINT ( 1 ) =1 . 0 , 

RINT( 2 ) =10 . 0 , 

RINT ( 3 ) = 1 . 0 , 

PHL ( 3 )=6 . 28  , 

I TYPE ( 3 ) =4 , 

RTYPE { 3  )  =8 . 0  , 

R I ST= 1 . 0E -  8 , 

I COND=  3 , 

ZFINAL=1 00 . 0 , 

ZKEEP=50 . 0 , 

5 

NAMEL I ST/NAML/NPUMP , YM , TM , Z INT , RKP , RKS , YOFF , TOFF , YWIDTH , TWIDTH , 

1  YOST , TOST , YWST , TWST , RINT , RI ST , RAMASM , RALASM , NHYP , PHL , PHST , TOC , 

2  I TYPE, RTYPE, RABAMP , RDSLIM, ICOND , ZSTEP , ZFINAL , ZKEEP , NMAX , TTWO , GAIN 


SFLDATE 
DONYET-1 . 
KONTH-03 , 
DAY" 28 . 
YEAR-88, 

:part-2, 

NEDN-2 , 


NPJ3.DAT 


ON  DAT 

^pOMT  ^ 

*  1 

LPRMT  '  2 

.  -1 

LPRMT  3 

LPRMT ( 4 ) ml 

NSEC- 3 , 
CSECf 1 , 

1  i- 

.0,2. 

CSECt  i  , 

2  ■  • 

.  z 

.2,2. 

CCECf  1  . 

3  i  - 

-  3 

.0,2. 

CSEC ( 2 , 

1  )- 

<  1 

.  0,2  . 

CSECf  2 , 

2  >- 

'  2 

.0,2. 

CSECf  2  , 

3  )  * 

.  3 

.0,2. 

CSECf ’ , 

1  )- 

(  1 

.0,2. 

CSECf  7 , 

2  >- 

i  2 

.0,2. 

CSECf  7  , 

3)- 

f  3 

.0,2. 

CSECf  8 . 

1  )  - 

'  1 

.0,2  . 

CSECf  8 , 

2  >  - 

(  2 

.0,2. 

CSECf  0  . 

3  i  - 

■  3 

.0,2. 

CSECf 1 3 

,  l 

1.0,2 

CSECf 1 3 

,  2 

i 

2.0,2 

CSECf 13 

,  3 

3.0,2 

CSECf  14 

,  1 

1.0,2 

CSECf 14 

2 

2  .  C  ,  2 

CSEC  14 

,  3  • 

3.0.2 

CRJ3.CPR 


KV 


tv: 


$ 


ft 

vy 

fiv 


10  ■ 
;o . 
io  ■ 
10  : 
10 
10  . 
10  • 
10 
10  • 
10 
10 
10 
10 
10 


10  :  45 


10  :  43 


10  :  43 
10-45 


10:43 


10:43 


10 

10 

10 

10 

10 


10:43 


10:48 


10  :  43 


10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 


04  *223 
04  -’226 
04  *^229 
04  -’232 
04  ^235 
04  '"’23  8 
04  ^241 
04  ^244 
04  '7246 
04  9833 
04  9836 
04  9840 
04  9843 
04  9846 
03  0688 
03  '79B4 
07  5803 
08  54^9 
41  3632 
41 . 3637 
3642 
5^1  1 
7->3l 

43 

45  7740 
50. 1769 
50  4813 
30 ■ 9744 
38  ">978 
58  7982 
58  7088 


41 

41 

45 


4358  7994 
45:38  9784 
46: 17  2556 

4617  3188 
48 • 17  5191 
46 : 17  5211 
46:21  7Q99 


46  :  21 
46  :  21 


46  :  23 


7102 

7106 

3771 


46  25  6713 


0000 

0000 

0000 

0000 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0002 

0012 

1104 

1135 

3197 

3198 

3199 

3200 

3201 
3201 
3201 
3201 
3203 
3209 

1781 
1781 
1721 
.  1723 
1727 
4336 
4338 

4336 

4337 

4338 
4338 
4338 
4338 
4340 


CSP 

CSP 

CSP 

CSP 

CSP 

CSP 

CSP 

CSP 

CSP 

CSP 

CSP 

cs? 

CSP 

CSP 

CSP 

CSP 

USER 

USER 

USER 

USER 

USER 

CSP 

SCP 

SCP 

SC? 

SC? 

CSP 

USER 

USER 

USER 

USER 

USER 

CSP 

CSP 

PDM 

PDM 

CSP 

SCP 

SCP 

SCP 

SCP 

CSP 


WELCOME  TO  THE  NRL  CRAY  XMP 


Thera  wi  1  1  be  no  CRAY  off  line  date  set  recalls  on  Tuesday  or  Wednesday 
mornings  between  2  *  00  AM  and  7  •  00  am  in  order  for  us  to  perform  CLEANUP 
runs  on  our  CRAY  archive  tape  library. 


CRAY  X-MP  SERIAL-415  63 
CRAY  OPERATING  SYSTEM 


NAVAL  RESEARCH  LABORATORY  C 4  20  88 
COS  1  15  ASSEMBLY  DATE  01  04  88 


JOB . JN-CRJ3 . MFL-5 11000 . US-DEFER 
ACCOUNT . AC- . US- . UPW- . a?W- 


AC213 
AUDIT 
AU003 
AU003 
AU003 
FETCH . 


TOTAL  budget  warning  level  reached  for  this  account  number 


106751139  WORDS 
14700004  WORDS  ONLINE 
92051135  WORDS  OFFLINE 


VAX  TO  CRAY 
VAX  TO  CRAY 
VAX  TO  CRAY 
SS004 


CFT  . 

CFOOO 

CF001 

CF002 

CF003 

CFO  17 

LDR. 

SAVE  . 
PDO00 
PDOOO 
FETCH 


187  DATASETS.  308621  BLOCKS. 

37  datasets.  23730  blocks. 

150  DATASETS.  179891  BLOCKS. 

DN-RJ3 .TEXT-  RAM2D1C . FOR  . 

^SYSTEM  - S -NORMAL .  normal  successful  completion 
FILE-SI JDUA107- [HILFER  FR2 )RAM2D1 C  FOR : 46 
54938  BYTES  TRANSFERRED 
DATASET  RECEIVED  FROM  FRONT  END 
I-RJ3 . 0N-IN2. 

00  10  87  l . 13BF2 
1  8312  SECONDS 

803  STATEMENTS 
14540  I  0  BUFFERS  USED 


CFT  VERSION  - 
COMPILE  TIKE  - 
1295  LINES. 

73082  WORDS . 

2  WARNINGS 
AB-XRJ3 , NX 
DN-XRJ3 
PDN  -  XRJ3 
SAVE  COMPLETE 
DN-NRaM . TEXT-  NRJ3  DAT' 

VAX  TO  CRAY:  ^SYSTEM - S -NORMAL .  normal  successful  completion 
VAX  TO  CRAY:  FILZ-S 1 SDUA107 :( HILFER . FR2 J NRJ3 - DAT : 3 
VAX  TO  CRAY:  592  BYTES  TRANSFERRED 
SS004  -  DATASET  RECEIVED  FROM  FRONT  END 


ID 


ED 


OWN  -  HILFER 


XRJ3 


10 • 47  45 

8234 

21 

3838 

PDM 

PDOOO 

- 

PDN  - 

FJ3042088 

ID  - 

ED  -  l 

OWN  - 

HILFER 

10 : 47. 45 

8257 

21 

3838 

PDM 

PDOOO 

- 

SAVE 

COMPLETE 

fjS 

lw  47  45 

8260 

21 

3838 

USER 

UT003 

- 

EXIT 

CALLED  BY  RAM2D1C 

10 : 47 : 49 

8290 

21 

3631 

CSP 

DISPOSE . 

GN-ERRK 

DF-BB. WAIT. 

TEXT-  CRJ3 . MSG. 

10 : 47  50 

6917 

21 

3841 

SCP 

CRAY 

TO 

VAX  : 

4RMS -S -NORMAL . 

norma  1 

successful 

comp  1 e  1 1 on 

10:47: 50 

6920 

21 

3841 

SCP 

CRAY 

TO 

VAX  : 

F I LE - S 1 tDUA 1 07 

: (HILFER 

. FR2  J  CRJ3 . 

MSG  :  1 

AS 

I0'47- 50 

6923 

21 

3841 

SCP 

CRAY 

TO 

VAX 

20 

BYTES  TRANSFERRED 

A 

10:47: 53 

8852 

21 

3843 

USER 

AUDIT 

V?  , 

10:48: 10 

3499 

21 

3929 

USER 

AU003 

- 

1  89 

DATASETS , 

208967 

BLOCKS . 

100927943 

WORDS 

5—  i.  ■  ^  * 

10:48: 10 

3904 

21 

5930 

USER 

AUP03 

- 

39 

DATASETS . 

29076 

BLOCKS . 

14970008 

WORDS 

ONLINE 

• 

10-40  10 

3509 

21 

5931 

USER 

AU003 

1  50 

DATASETS . 

179891 

BLOCKS . 

02051133 

WORDS 

OFFLINE 

10  48 : 10 

3589 

21 

5931 

CSP 

EXIT 

10:48- 10 

3605 

21 

5932 

CSP 

END  OF  JOB 

10:48: 10 

3610 

21 

5932 

CSP 

10  48: 10 

3612 

21 

5932 

CSP 

w 

10  48  10 

3246 

21 

5933 

USER 

JOB 

NAME 

- 

CRJ3 

L jfl Ai 

10  48  10 

3282 

21 

3933 

USER 

USZR 

NUMBER 

HILFER 

is 

10-41:10 

9989 

21 

6933 

USER 

JOB 

sequence 

NUMBER  - 

36190 

195 


10  41: 
10 : 48 ; 


10  5259 
10  520 3 
10  52^0 
10  52*74 
10  * 2^8 
10  5232 
10  5280 
10  3289 
i:  5293 
10  5  2  9*7 
10  5301 
10  53C5 
10  5308 
10  5312 
10  5310 
10  5320 
:  10  5333 

:  10  5327 

;  10  5331 
:  10  5333 
.  10  5338 
13  5342 
:  10  5  3  40 

•  10  3350 
:  10  5  35  4 

•  10  8  900 
.  1  3  890  9 

10  8913 

•  10  8910 
10  8920 


21  5933 
21  5934 
21  5934 
21  5934 
21  5934 
21  5934 
21  5935 
21  5935 
21  5935 
21  5935 
21  5935 
21  5935 
21  5935 
21  5935 
21  5935 
21  *935 
21  5935 
21  5930 
21  5930 
21  *930 
21  5930 
21  *93  0 
21  5936 
21  5  93  0 
21  5930 
21  0012 
21  0012 
2  1  0012- 
21  9013 

21  0014 


TIME  EXECUTING  IN  CPU  -  0000 : 00 ; 21  5933 

TIME  WAITING  TO  EXECUTE  -  0000:02-03  0841 

time  waiting  for  i  o  -  3000:00:39  5*790 

TIME  WAITING  IN  INPUT  QUEUE  0000 ■ 00 ■ 00  0054 

MEMORY  •  CPU  TIME  'MWDS‘SEC>  -  2  99854 

MEMORY  ’  I  0  WAIT  TIME  (MWDS'SEC'  -  3  999'7  8 

MINIMUM  JOB  SIZE  WORDS'  -  43008 

MAXIMUM  JCB  SIZE  i WORDS >  -  215040 

MINIMUM  FL  .WORDS)  -  38400 

MAXIMUM  FI  r WORDS)  -  210432 

MINIMUM  JTA  (WORDS)  -  3504 

MAXIMUM  JTA  (WORDS)  -  5120 

DISK  SECTORS  MOVED  -  2952 

FSS  SECTORS  MOVED  -  0 

USER  I  C  REQUESTS  -  13*?© 

USER  I  0  SUSPENSIONS  -  1590 

OPEN  CALLS  -  45 

CLOSE  CALLS  -  44 

MEMORY  RESIDENT  DATASETS  -  0 

TEMPORARY  DATASET  SECTORS  USED  1 

PERMANENT  DATASET  SECTORS  ACCESSED  1414 

PERMANENT  DATASET  SECTORS  SAVED  -  340 

SECTORS  RECEIVED  FROM  FRONT  END  -  15 

SECTORS  QUEUED  TO  FRONT  END  -  1 


COST  TABLE  TOR  THIS  JOB 


JOBNAME 
USER  IDENT 


CRJ3 

HILFER 


10  - 

40  :  10 

8924 

21 

0015 

USER 

BEGAN  EXECUTION  - 

WED 

APR  20, 

1988 

10 : 45 : 04 

HOURS . 

10 

48  :  10 

8928 

21 

0010 

USER 

AT  A  PRIORITY  OF  -- 

3 

I  3 

48  1  3 

8931 

21 

001*7 

USER 

AND  JOB  CLASS  OF  -- 

DSMALL 

1  0 

♦  8  10 

8935 

21 

0018 

USER 

21 

599948 

SECONDS  OF  CPU  TIME 

3 

t 

030  00 

HR 

s 

3 

1  o  • 

48  10 

9939 

21 

0020 

USER 

2 

990950 

MEMORY  *  CPU  (MWRD-SEC) 

i 

t 

84.00 

HR 

0  0*7 

10 

48  13 

3943 

21 

002  L 

USER 

4 

004100 

MEMORY  *  I  0  (MWRD-SEC) 

$ 

t 

84  00 

HR 

$ 

0  09 

10 

40  :  10 

894*7 

21 

0022 

USER 

0 

002954 

I  0  mzgasectors  moved 

& 

s 

04.00 

EA 

S 

0 . 83 

10 

.  40  10 

0  951 

21 

0023 

USER 

0 

000000 

TAPE  MOUNT( S ) 

e 

1 

3 . 00 

ZA 

1 

0 . 00 

10 

40  1  3 

8955 

21 

0024 

USER 

1 

40  10 

8958 

21 

0024 

USER 

1  *  *  *  TOTAL  COST  FOR 

THIS 

JOB 

I 

4  19 

CPJ3.CPR 


10  : 

52  01 

9687 

0  0000 

CSP 

1  « 

3  2:01 

9670 

0  0000 

CSP 

10 

5  2  01 

9073 

0  0000 

CSP 

10 

53:01 

9076 

0  0000 

CSP 

10 

3  2-01 

9079 

0  0001 

CSP 

10 

32:01 

9682 

0 . 0001 

CSP 

1 0 

32:01 

9685 

0  0001 

CSP 

10 

5  2:01 

9638 

0 . 0001 

CSP 

10 

32:01 

9091 

0  0001 

CSP 

10 

5  2  01 

9715 

0  0001 

CSP 

10 

52  :  01 

9718 

0  0001 

CSP 

10 

33:01. 

Q722 

0  0001 

CSP 

10 

33:01 

9?25 

0  -  0001 

CSP 

10 

53  :  01 

9728 

0  0002 

CSP 

10 

5  3.01 

9949 

0  0002 

CSP 

10 

52  C2 

0243 

0  0014 

CSP 

10 

52  •  03 

4287 

0  1114 

USER 

10 

52:04 

0746 

0  1146 

USER 

10 

53:31 

6486 

0  3240 

USER 

10 

98:31 

6491 

0 . 324 1 

USX* 

10 

52  31 

6496 

0  3242 

USER 

10 

52:31 

8581 

0  3246 

CSP 

10 

52-  31 

9239 

0  3248 

PDM 

10 

52:31 

9242 

0  3240 

PDM 

10 

5  2  31 

9261 

0  3250 

CSP 

10 

52  :  32 

1034 

0 . 3230 

PDM 

10 

52  :  32 

1036 

0  3250 

PDM 

10 

52  :  32 

1882 

0 . 3253 

CSP 

10 

52  :  32 

4003 

0  3254 

PDM 

10 

52:32 

4006 

0  3254 

PDM 

:o 

52  :  32 

4022 

0  3254 

CSP 

:o 

52  39 

7022 

0  325  6 

SCP 

10 

32  39 

7C25 

0  3250 

SCP 

10 

52  39 

-528 

0  3  25  6 

SCP 

10 

•52:42 

1534 

0  3256 

SCP 

10 

52:42 

5372 

0  3260 

CSP 

10 

52:  43 

0746 

0  3263 

USER 

10 

:  53  : 01 

3381 

8  8122 

USER 

10 

.53  01 

3428 

8  8122 

USER 

10 

53  01 

3432 

8  8122 

USER 

10 

•53-01 

4880 

8  8128 

CSP 

10 

:  53:08 

0 1  ?4 

10  1233 

CSP 

10 

:  53  :  08 

2797 

10  1233 

PDM 

10 

33:08 

2800 

10  1233 

PDM 

1C 

3  3  0  8 

2819 

10  1234 

CSP 

10 

53  08 

2838 

10  1235 

CSP 

10 

33  13 

5783 

10  1230 

SCP 

10 

.53:13 

5788 

10 . 1230 

SCP 

10 

33  13 

3789 

10 . 1230 

SCP 

10 

.33.17 

7079 

10  1236 

SCP 

10 

:  33  :  17 

9790 

10 . 1238 

CSP 

10 

33  20 

9282 

10  1284 

PDM 

10 

•  5  3 ' 20 

9280 

10  1284 

PDM 

10 

.54.03 

3294 

24.0181 

USER 

10 

:  5  4  :  0  5 

3320 

24  0181 

CSP 

10 

.34:21 

1493 

24.0183 

SCP 

10 

: 34 : 21 

1496 

24 .0183 

SCP 

10 

34  21 

1500 

24  0183 

S  CP 

1C 

54  23 

8385 

24  0184 

CSP 

10 

54  29 

7490 

24  0180 

SCP 

WELCOME  TO  THE  URL  CHAT  XMP 


There  will  be  no  CRAY  off-line  data  set  recalls  on  Tuesday  or  Wednesday 
mornings  between  2:00  am  and  7:00  AM  in  order  for  us  to  perform  cleanup 
runs  on  our  CRAY  archive  tape  library. 


CRAY  X  HP  SERIAL  415  65  NAVAL  RESEARCH  LABORATORY  04  20  88 
CRAY  OPERATING  SYSTEM  COS  1.15  ASSEMBLY  DATE  01  04  88 


JOB .  JN-CPJ3 . KFL-51 1000 . US-DEFER 
ACCOUNT  AC  -  . US  -  . UPW.  ApW- 

AC213  -  * •  TOTAL  BUDGET  WARNING  LEVEL  REACHED  FOR  THIS  ACCOUNT  NUMBER 
AUDIT . 

AU003  -  18®  DATASETS.  30898?  BLOCKS.  100927943  WORDS 

AU003  -  39  DATA8XT8.  29070  BLOCKS.  14878808  WORDS  ONLINE 

AU003  -  ISO  DATASETS.  1?9891  BLOCKS.  93051135  WORDS  OFFLINE 

ACCESS .  DN-DISLIB . rD-DISSPLA . OWN-LIBRARY 

PDOOO  -  PDN  -  DISLIB  ID  -  OISSPLA  ED  -  1  OWN  -  LIBRARY 

PDOOO  -  ACCESS  COMPLETE 

ACCESS .  DN-INTLIB . ID-DISSPLA . OWN -LIBRARY . 

PDOOO  -  PDN  -  INTLIB  ID  -  DISSPLa  ED  -  1  OWN  -  LIBRARY 

PDOOO  -  ACCESS  COMPLETE 

ACCESS .  DN-DVSD. ID-DISSPLA . OWN-LIBRARY . 

PDOOO  -  PDN  -  DVSD  ID  -  DISSPLA  ED  -  I  OWN  -  LIBRARY 

PDOOO  -  ACCESS  COMPLETE 

FETCH .  DN-PJ3 .TEXT-  PRAM 1 CD  FOR ' . 

VAX  TO  CRAY:  4S YSTEM-S -NORMAL .  normal  successful  completion 
VAX  TO  CRAY:  P I LE- S 1 S DUA 1 0? :  [ H I LFER  TO3 1  PRAM 1 CD . FOR ; 9 
VAX  TO  CRAY:  1*77888  BYTES  TRANSFERRED 
SS004  -  DATASET  RECEIVED  FROM  FRONT  END 
CFT .  I-PJ3 .ON-INZ. 

CFOOO  -  CFT  VERSION  -  06  16  87  1.15BF2 

CF001  -  COMPILE  TIME  -  8  4859  SECONDS 

CF002  3938  LINES.  2705  STATEMENTS 

CF003  -  107830  WORDS.  14540  10  BUFFERS  USED 

LDR .  LIB- INTLIB : DISLIB . NX .  AB-XPJ3 . 

SAVE.  DN-XPJ3 

PDOOO  -  PDN  -  XPJ3  ID  -  ED  -  8  OWN  -  HI LFER 

PDOOO  -  SAVE  COMPLETE 
RELEASE.  DN-PJ3 

FETCH  DN-NPRaMI . TEXT-  NPJ3  DAT' 

VAX  TO  CRAY:  1.SYSTEM  -  S  •  NORMAL  .  normal  successful  completion 
VAX  TO  CRAY:  PILE- $  1 JDUA107 :  [ HI LFER . FR2 ] NPJ3 . DAT : 9 
VAX  TO  CRAY:  1058  BYTES  TRANSFERRED 

ssoo4  -  dataset  received  from  front  end 

XPJ3 

PDOOO  -  PDN  -  FJ3042088  ID  -  ED  -  1  OWN  -  HILFER 

PDOOO  -  ACCESS  COMPLETE 

utoo3  -  exit  called  by  pramicd 

DISPOSE,  DN-KETA.DF-BB.WAIT.TEXT-PLT2.DAT' 

CRAY  TO  VAX.  *RMS -S -NORMAL .  normal  successful  completion 
CRAY  TO  VAX:  FILE-tlSDUA107: [ HILFER. FR31PLT3 .DAT : 1 
CRAY  TO  VAX:  547920  BYTES  TRANSFERRED 
DISPOSE.  DN-EPRM  DF-BB  WAIT  TEXT- ' CPJ3  MSG  ' 

CRAY  TO  VAX:  4RKS-S- NORMAL.  normal  successful  completion 


CPJ3.CPR 


10 

54 

29 

"»493 

24 

0180 

SCP 

CRAY  TO  VAX-  F I LE  -  S  1  $ OUAl 07 • 

[HILFER  FR2 ] C PJ3  MSG 

:  1 

10 

54 

29 

7496 

24 

0180 

sc? 

CRAY  TO  VAX:  3404  BYTES  TRANSFERRED 

10 

54 

34 

3297 

24 

0186 

cs? 

DISPOSE.  DN-META.DF-BB .WAIT .T 

EXT-  CPJ3  DSP 

10 

54 

34 

3315 

24 

0188 

EXP 

SYOOl  RLS  COULD  NOT  FIND  A 

DNT  FOR  META 

iO 

54 

35 

1661 

24 

0192 

USER 

AUDIT • 

10 

55 

05 

6931 

24 

22~2 

USER 

At/003  190  DATASETS. 

209325  BLOCKS.  1071112; 

7  WORDS 

10 

55 

05 

0980 

24 

2272 

USER 

AU003  -  40  DATASETS 

29434  BLOCKS.  15000082  WORDS 

ONLINE 

10 

55 

05 

0990 

24 

2273 

USER 

AU003  -  150  DATASETS. 

119891  BLOCKS .  92051135  WORDS 

OFFLINE 

10 

55 

05 

8647 

24 

2274 

CSP 

EXIT  . 

10 

55 

05 

8666 

24 

2274 

CSP 

END  OF  JOB 

10 

35 

05 

8669 

24 

2274 

CSP 

10 

55 

05 

86',4 

24 

2274 

CSP 

10 

55 

08 

0309 

24 

2276 

USER 

JOB  NAME  - 

CPJ3 

10 

55 

C6 

0312 

24 

2270 

USER 

USER  NUMBER  - 

HILFER 

10 

55 

00 

0310 

24 

22  70 

USER 

JOB  SEQUENCE  NUMBER  - 

38928 

10 

53 

00 

0319 

24 

2276 

USER 

10 

55 

00 

0323 

24 

22 76 

USER 

TIME  EXECUTING  IN  CPU  • 

0000 : 00 : 24 

2275 

10 

53 

06 

0327 

24 

2276 

USER 

TIME  WATTING  TO  EXECUTE 

0000  02:01 

7099 

10 

35 

00 

0330 

24 

2270 

USER 

TIME  WAITING  FOR  I  0  - 

0000:00  :  30 

4403 

10 

33 

00 

0334 

24 

2270 

USER 

TIME  WAITING  IN  INPUT  QUEUE  -  0000:00:00 

0106 

10 

53 

00 

0338 

24 

227'-* 

USER 

MEMORY  *  CPU  TIME  (MWDS'SEC)  -  4 

65737 

10 

33 

06 

0342 

24 

2277 

USER 

MEMORY  •  I  0  WAIT  TIME  ( KWDS *  SEC )  -  4. 

39400 

10 

53 

00 

03  45 

24 

2277 

USER 

MINIMUM  JOB  SIZE  (WORDS) 

43008 

10 

53 

06 

0349 

24 

227"* 

USER 

MAXIMUM  JOB  SIZE  (WORDS) 

311296 

10 

35 

06 

0651 

24 

2277 

USER 

MINIMUM  FL  (WORDS)  - 

38400 

10 

53 

00 

00  5  4 

24 

227"* 

USER 

MAXIMUM  FL  (WORDS)  - 

306176 

10 

35 

06 

0658 

24 

2277 

USER 

MINIMUM  JTA  ( WORDS )  - 

3564 

10 

53 

06 

066  1 

24 

227"* 

USER 

MAXIMUM  JTA  (WORDS)  - 

3  120 

10 

35 

0  6 

06  0  5 

24 

2278 

USER 

DISK  SECTORS  MOVED  - 

4492 

10 

33 

00 

0  669 

24 

2273 

USER 

FSS  SECTORS  MOVED  - 

0 

10 

55 

06 

0072 

24 

2278 

USER 

USER  I  0  REQUESTS  - 

1553 

10 

55 

06 

0670 

24 

2273 

USER 

USER  I  0  SUSPENSIONS  - 

1877 

10 

55 

06 

0079 

24 

2278 

USER 

OPEN  CALLS  - 

31 

10 

53 

06 

06  8  3 

24 

2278 

USER 

CLOSE  CALLS  - 

49 

10 

55 

09 

-  0  8  0 

24 

22  78 

USER 

MEMORY  RESIDENT  DATASETS 

10 

33 

00 

0690 

24 

2278 

USER 

TEMPORARY  DATASET  SECTORS 

USED  -  183 

10 

5? 

08 

0094 

24 

22'**8 

USER 

permanent  Dataset  sectors 

ACCESSED  2451 

10 

35 

06 

0097 

24 

2278 

USER 

permanent  dataset  sectors 

SAVED  -  358 

10 

35 

09 

07Q1 

24 

2278 

USER 

sectors  received  from  front  END  -  45 

10 

33 

06 

0704 

24 

2278 

USER 

SECTORS  QUEUED  TO  FRONT  END  -  138 

10 

55 

06 

3479 

24 

2355 

USER 

10 

53 

00 

;485 

24 

2356 

USER 

• ,f  COST  TABLE  FOR  THIS  JOB  »■ 

• 

10 

55 

00 

3489 

24 

2357 

USER 

_  __ 

10 

55 

00 

3493 

24 

2358 

USER 

USER  IDENT. 

HILFER 

10 

35 

00 

3497 

24 

2359 

USER 

BEGAN  EXECUTION  -  WED  APR  20.  1988 

1 

0:52:01 

10 

33 

00 

3500 

24 

23  00 

U  S  ER 

AT  A  PRIORITY  OF 

3 

10 

53 

00 

3504 

24 

2301 

USER 

AND  JOB  CLASS  OF 

dsmall 

10 

35 

06 

3508 

24 

2362 

USER 

24  234282  SECONDS  OF 

CPU  TIME  £  t  630 

00 

HR 

1C 

35 

00 

3312 

24 

2303 

USER 

4  65801 1  MEMORY  *  CPU 

i  MVRO-SEC)  S  J  84 

.00 

HR 

_ 

j 

10 

33 

00 

3317 

24 

2364 

USER 

4.391854  MEMORY* I  0 

(MWRL-SEC)  at  84 

.00 

HR 

j 

10 

53 

00 

3321 

24 

2300 

USER 

0  004494  I  0  MEOASECTORS  MOVED  St  84 

.  00 

EA 

_ 

5 

10 

35 

00 

3523 

24 

2307 

USER 

0000000  TAPE  MOUNT(S)  Q  1  3 

.  00 

EA 

t 

10 

35 

06 

3529 

24 

2368 

USER 

10 

55 

06 

3531 

24 

2368 

USER 

• ' * '  TOTAL  COST  FOR  THIS  JOB 

.  *  . . 

s 

10 

:  35 

00 

3334 

24 

2368 

USER 

•  I  I  I 

f  f  1 

HOURS 


4  24 

0  11 
0  10 
0  38 
0  00 

4  83 


PLT2.DAT  (Example  A2) 


PLT2.DAT  (Example  A2) 


PLT2.DAT  (Example  A2) 
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APPENDIX  B  1-D  Stationary  Limit;  Examples 

Two  examples  are  appended  to  illustrate  code  operation  in  the  stationary  limit. 
The  illustration  features  the  batch  job  command  files,  the  input  data  files,  the  ouput 
CPR-files  and  the  resulting  output.  The  first  example  is  a  simple  run  that  features 
a  chirped  input  signal  and  fast  Fourier  transforms  of  the  fields.  The  second  exam¬ 
ple  illustrates  several  cases  of  multiple  aberrated  beam  interaction  in  one  run  of  the 
programs. 

EXAMPLE  B1 


XI J.  JOB 


£ 


vit 


AUOIT . 

FETCH ,  0N"NRam,TFXT=,NR1J.0AT’ . 

ACCESS,  DN-XR1J. 

XR  1  J  . 

DISPOSE,  DN— ERRM, DF-BB, WAIT, TEXT- 'XI J .MSG. ' . 
ACC  ESS ,  DN-D I S  L 1 8 . 1 D-D  I SSP  LA , OWN- LIBRARY. 
ACCESS,  ON- I NT LIB, I D-D I SSP LA, OWN-LIBRARY. 
ACCESS.  DN-DVSD, ID-OISSPLA, OWN-LIBRARY. 
ACCESS.  DN-XP1J. 

FETCH.  DN— NPRAM1 . TEXT-' NP1 J . DAT ' . 

XP1J. 

AUDIT. 

DISPOSE.  DN— META.DF-88 .WAIT, TEXT- 1 PLT2 . DAT ’ . 
DISPOSE,  DN-EPRM. DF-BB. WAIT, TEXT-'XU. MSG.  ' . 
DISPOSE.  DN-OISOUT. DF-BB, WAIT, TEXT-’XIJ. DSP. • . 
EXIT. 


V'l 


NRU.DAT 


$NAML 

RI ST=1 .  OE - 1 2 , 
PHL ( 1 ) =3 . 14 , 
PHL ( 2 )  =  3 . 14 , 
PHST=3 .14  , 

I COND=4 , 
2FINAL=40 . 0 , 
ZKEEP=1 0 . 0 , 
GAIN=0 . 4 , 


NAMELI ST/NAML/NPUMP , YM , TM , Z I NT ,RKP,RKS,YOFF, TOFF , YWIDTH , TWI DTH , 

1  YOST , TOST , YWST ,  TWST , RINT , RI ST , RAMASM , RALASM , NHYP , PHL , PHST, TOC , 

2  I  TYPE, RTYPE, RABAMP , RDSLIM, I COND , Z STEP , 2F INAL , ZKEEP , NMAX , TTWO , GAI N 


NPU.DAT 


SFLOATE 
DONYST-l  , 
MCNTH-03 , 
DAY  *28, 
YEAR-88 . 

:part*2  , 

NEDN-l , 


SCCNDAT 
LPPKTI 1 i 
LPP^T'  2  ' 
LPRMT'  3  > 
LPRKT( 4 ’ 

kse:-i, 

CSEC I  1 , 1 
C5EC { 2 , 1 


CSEC  f  4 , i  )-! 1 . ; 

csec 1 5, 1 1 -  - 1 . : 


CSECI 7, 1 ] >  1 . c 
CSEC( 8, 1 l*( 1  .  C 
CSEC ( 10 , 1 ) »( 1  . 
CSEC ( 11 , 1 ) -( 1 . 
CSEC ( 1 3 , 1 ) - ( 1 . 
CSEC( 14 , 1 ) -( 1 . 
CSEC  f 16 , 1 ) *( 1  . 
CSEC  f 1 7 . 1 ) - < 1 . 
S 

S  2  PLOT 
K  Z  I  1  -  1  , 

KC;  2 )«2 , 

KZ(  3  -3 , 

KZ' 2 ■ -4  , 

KZ ; 3 ■ -5 . 


XlJ.CPR 


16 

30 

5  6 

8536 

o 

0000 

-  CSP 

1  6 

3  3 

36 

8539 

a 

ocoo 

CSP 

1  6 

30 

65 

854  1 

o 

0000 

CSP 

* 

T  *3 

c 

8544 

n 

AAA  A 

CSP 

1  6  ' 

30  • 

56 

8546 

o 

000  1 

CSP 

16 

30 

55 

8549 

o 

0001 

CSP 

1  6 

3  0 

55 

355  1 

,*v 

0001 

CSP 

l  * 

3 

55 

8554 

3 

0001 

CSP 

16 

3  0 

55 

8  5  5'" 

0001 

CSP 

1  6 

30 

5  5 

8550 

o 

000 1 

CSP 

16 

30  : 

56 

8562 

0 

GOO  l 

CSP 

16 

30  . 

55 

8564 

o 

0001 

CSP 

16 

30 

56 

0923 

0 

0002 

CSP 

16 

30 

56 

0926 

0 

0002 

CSP 

1  * 

56 

7  o  5  0 

o 

AAA  J 

CSP 

16 

3  0 

06 

0  95  4 

A 

0002 

CSP 

16 

30 

66 

Ooc;  9 

p 

0002 

CSP 

16 

30 

56 

112^ 

0 

0002 

CSP 

16 

30 

56 

1482 

0 

0013 

CSP 

1  e 

30 

58 

6C  4  9 

0 

1023 

USE* 

1  6 

30 

K  9 

0474 

0 

106  1 

USER 

1  6 

31 

0  3 

6942 

A 

1  8*^2 

USER 

2  8 

31 

03 

6946 

o 

1  873 

USER 

10 

31 

03 

6950 

0 

1874 

USER 

16 

31 

03 

7015 

0 

1875 

CSP 

16 

3  1 

09 

1017 

0 

1  0  76 

SCP 

1  6 

3  1 

0  9 

10  SO 

0 

1  8~*6 

SCP 

16 

31 

09 

1022 

0 

1  8^6 

SCP 

16 

31 

12 

8095 

0 

1070 

SCP 

16 

31 

12 

9078 

0 

1878 

CSP 

10 

31 

13 

07Q3 

0 

1878 

PDM 

10 

31 

:  13 

0706 

0 

1878 

PDM 

16 

31 

13 

1307 

0 

1880 

CSP 

1  P 

31 

1  9 

Q4~^ 

5 

8062 

PDM 

1  « 

31 

1  9 

9472 

=; 

906? 

PDM 

1  6 

31 

19 

9489 

5 

8062 

USER 

10 

3  1 

19 

9540 

5 

8062 

CSP 

10 

:  31 

.  31 

1975 

5 

8004 

SCP 

1  9 

3  1 

3  1 

1978 

5 

8004 

SCP 

16 

31 

31 

1982 

5 

8064 

SCP 

WELCOME  10  THE  NRL  CRAY  XMP 


•  We  are  attempting  to  cleanup  the  library  of  CRAY  archive  tapes 

'  These  cleanup  runs  "Jill  be  made  on  Tuesday  and  Wednesday 

•  mornings  between  2-00  and  v : 00  AM  During  these  times,  there 

•  will  be  no  recall  of  off  line  data  sets  If  you  plan  on  running 

'  lobs  during  these  hours,  please  insure  that  required  files  are 

■  on  line 

CRAY  X  MP  SERIAL  415  65  NAVAL  RESEARCH  LABORATORY  T3  28  88 
CRAY  OPERATING  SYSTEM  COS  1  15  ASSEMBLY  DATE  ?1  "4  88 

JOB. JN-X1J . MFL-5 11000 .US -DEFER. 

ACCOUNT . AC- . US  - . UPW- . APW- 

AC2 1 3  •'  TOTAL  BUDGET  WARNING  LEVEL  REACHED  FOR  THIS  ACCOUNT  NUMBER 

AUDIT 

AU003  S3  DATASETS.  95112  BLOCKS.  48671617  WORDS 

AU003  -  ’  A  DATASETS  1535  BLOCKS.  784380  WORDS  ONLINE 

AU003  57  DATASETS.  93577  BLOCKS.  47887237  WORDS  OFFLINE 

FETCH.  DN-NRAH.TEXT*  NR1J  DAT’. 

VAX  TO  CRAY:  ^SYSTEM  S  NORMAL,  normal  successful  completion 
VAX  TO  CRAY.  FILE-J1SDUA107: [HILFER  FR21NR1J  DAI.18 
VAX  TO  CRAY:  488  BYTES  TRANSFERRED 
SS004  -  DATASET  RECEIVED  FROM  FRONT  END 
ACCESS.  DN-XR1J 


PDOOO 

-  PDN  -  XR1 J 

ID  - 

ED  - 

4  OWN  -  HILFER 

PDOOO 

-  ACCESS  COMPLETE 

XR1  J 
PDOOO 

PDN  '  F1JO32088 

ID  • 

ED  - 

1  OWN  -  HILFER 

PDOOO  SAVE  COMPLETE 
UT003  -  EXIT  CALLED  BY  RAM2D1C 
DISPOSE.  DN-ERRK. DF-BB, WAIT. TEXT-  X1J  MSG 
CRAY  TO  VAX:  URMS -S -NORMAL,  normal  succesaful  completion 
CRAY  TO  VAX:  FILE-S1SDUA107: [HILFER  FR2]X1J  MSG ; 3 
CRAY  TO  VAX:  51004  BYTES  TRANSFERRED 


18-71  -39  1427  6  8067  CSP  ACCESS  DN-DISLIB  ID-D I S S PLA  OWN - L IBRAR Y 

19  31:39  6518  5  8068  PDM  PDOOO  -  PDN  -  DISLIB  ID  -  DISSPLA  ED  -  1  OWN  -  LIBRARY 

18  31  39  6520  5  8068  PDM  PDOOO  ACCESS  COMPLETE 

16  3139  6541  5  8071  CSP  ACCESS.  DN - INTLIB . ID -D I S SPLA . OWN ■ LI BRARY 

16  31  40  2745  5  8072  PDM  PDOOO  -  PDN  •  INTLIB  ID  -  DISSPLA  ED  -  l  OWN  -  LIBRARY 

18  31  40  2748  5  8Q72  PDM  PDOOO  ACCESS  COMPLETE 

18  31  40  2788  5  8075  CSP  ACCESS.  DN-DVSD . ID-D ISS PLA . OWN - L IBRARY 

19  31  40  5113  5  8075  PDM  PDOOO  -  PDN  -  DVSD  ID  -  DISSPLA  ED  -  1  OWN  -  LIBRARY 

16  31  40  5119  5  8075  PDM  PDOOO  -  ACCESS  COMPLETE 

16  31  40  5132  5  8077  CSP  ACCESS.  DN-XPU 

19  31  40  7->so  5  8077  PDM  PDOOO  -  rDN  -  XPIJ  ID  -  ED  -  5  OWN  -  HILFER 

18  31  40  "783  3  8077  PDM  PDOOO  ACCESS  COMPLETE 

16  71  40  7778  5  8078  CSP  FETCH.  DN-NPRAM1  TEXT-  NF1-T  DAT 

183145  0963  5  8079  SCP  VAX  TO  CRAY:  %SYSTEH- S -NORMAL .  normal  successful  completion 

19  31:45  0968  5  8079  SCP  VAX  TO  CRAY:  F I LE - 1 1 JDUA 1 07 :  [ H I LFER  FR2 J NF 1 J  DAT : 1 9 

19  31  45  0968  3.8070  SCF  VAX  TO  CRAY:  912  BYTES  TRANSFERRED 

19  31  48  2089  3  8070  SCP  SS004  -  DATASET  RECEIVED  FROM  FRONT  END 

18  31  48  4865  5  8081  CSP  XPIJ 

16  31  48  9837  5  8117  PDM  PDOOO  -  PDN  -  F1J032888  ID  -  ED  -  1  OWN  -  HILFER 

19  31  46  9840  5  8117  PDM  PD008  -  LOCAL  DATASET  NAME  ALREADY  IS  IN  USE 
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XlJ.CPR 


1  6 

3  2 

- 

3542 

15 

;45  8 

USER 

•JT0C3 

EXIT 

CALLED  BY  FRAN’CD 

1  6 

32 

:■  i 

0TT6 

15 

0462 

USER 

AUDIT 

1  6 

i  *» 

*  <5; 

9  13  1 

1  -* 

1204 

USER 

AU003 

64  DATASETS  .  =  BLOCKS  . 

4874538"  W'RDS 

;  6 

30 

rc 

9125 

15 

12  93 

USER 

A ’JO  03 

"  DATASETS  1680  BLOCKS. 

358130  WORDS 

1  * 

1  0 

<=. 

9  120 

1  5 

1  ?Qfi 

USER 

A  !jnm 

”  DATASETS  01=77  PLUCKS 

W^RP^ 

16 

32 

■  3 

8198 

15 

1298 

CSP 

DISPOSE 

DN  - 

META . DF-BB .WAIT . TEXT .  FLT2  DAT 

16 

T  0 

1  9 

7  106 

15 

1298 

s  :p 

CRAY 

TO 

VAX 

4RMS  -  S - NORMAL  normal  successful 

c omp 1 e  *  ion 

1  6 

3  2 

19 

"109 

13 

1298 

SCP 

CRAY 

TO 

VAX 

.  FILE-SISDUAIO?. (HILFER  FR2 1 FLT2 

DAT  .  3 

l  6 

32 

I  a 

71  1  l 

1  5 

1298 

SCF 

CRAY 

TO 

VAX 

391680  BYTES  TRANSFERRED 

16 

32 

2  1 

9142 

13 

1298 

CSP 

DISPOSE 

DN 

EFRM.DF  BB. WAIT  TEXT  XI J  MSG 

]  * 

-«3 

;>« 

A**  *7 

15 

1  3on 

SCP 

CRAY 

TO 

VAX 

4.RMS  -S  -  NORMAL  normal  successful 

comr>  l  o  *■  ion 

1  5 

32 

26 

0560 

15 

1300 

SCP 

CRAY 

TO 

VAX 

:  FILE  *  1 1 SDUA10? : ( HILFER .  FR2  )  XI J  MSG . 4 

1  6 

32 

26 

0562 

15 

1  300 

SCP 

CRAY 

TO 

VAX 

:  2487=9  BYTES  TRANSFERRED 

1  6 

32 

2" 

5037 

18 

1301 

CSP 

dispose . 

DN- 

DISOUT . DF-BB . WAIT . TEXT  X1J  DSF 

i  6 

32 

3  3 

0014 

1  5 

1  3  C  3 

SCP 

CRAY 

TO 

V  AX 

4RHS  S  NORMAL,  normal  successful 

c  omp 1 e  1 1  on 

16 

32 

33 

001" 

15 

1373 

SCP 

CRAY 

TO 

VAX 

■  FILE  UtDUAlOT  t  HILFER  FR2)X1J  DSP:2 

16 

32 

33 

On  1  9 

16 

1303 

SCP 

CRAY 

TO 

VAX 

:  1004  BYTES  TRANSFERRED 

1  6 

32 

34 

"496 

15 

1303 

CSP 

EXIT 

1  6 

32 

34 

"5  10 

15 

1304 

CSP 

END  OF  JOB 

l  6 

32 

34 

75  13 

15 

1304 

CSP 

1  6 

32 

34 

75  16 

15 

1304 

CSP 

INLINE 

OFFLINE 


16  32  3  5 
16-32  35 
16  32  35 
i  6  32:35 
16  3235 
16  32  35 
16  32  35 
1*32-35 
16.32.35 
18-32:35 
16  32 . 35 
16  32  35 
16  32  35 
1 6  32 1 36 
18  32:35 
15 : 32:35 
16  32  35 
32  35 
*  2  35 

15  -  32 ' 35 
18  32  35 
16.32:33 
163235 

16  32:35 

1*  “*2  35 

18  32  35 
16  32  35 
10-32.35 
16  32:35 
16:32  35 
1632  33 


18 
1  6 


2206 
2209 
2413 
2418 
2422 
2426 
2429 
2432 
2435 
2438 
2442 
2445 
2448 
245  1 
2454 
2457 

2490 
2463 
2466 
2469 
24*33 
2476 

2479 

2482 

P40*5 

2488 

2491 

2494 

5314 

53  l7 

5320 


15  1305 
15  1305 
15  1305 
15  1305 
15  1305 
15  1306 
15  1306 
15  1306 
15  1306 
15  1306 
15  1306 
15  1306 
15  130-3 
15  130-3 
15  13Q7 
15  1307 
15  130-3 
15  130-3 
15  130" 
15  130*3 
15  1307 
15 .  1307 
15  1307 
15  1307 
15  1*»08 
15  1308 
15  1308 
15  1308 
15  1380 
13  1390 
15  1380 


USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

USER 

user 

USER 

USER 

USER 

USER 

USER 

USER 


JOB  HAKE 

USER  NUMBER 

JOB  SEQUENCE  NUMBER  - 

TIME  EXECUTING  IN  CPU  - 
TIME  WAITING  TO  EXECUTE 
TIME  WAITING  FOR  I  0 
TIME  WAITING  IN  I N PUT  QUEUE  - 
MEMORY  *  CPU  TIME  fKWDS’SEC)  - 
MEMORY  •  I  0  WAIT  TIME  '  MWD$ • SEC 
MINIMUM  JOB  SIZE  (  WQRDS  i 
MAXIMUM  JOB  SIZE  >  WORDS  ; 

MINIMUM  FL  < WORDS > 

MAXIMUM  FL  'WORDS' 

MINIMUM  JTA  ( WORDS ) 

MAXIMUM  JTA  i WORDS  ) 

DISK  SECTORS  MOVED 
FSS  SECTORS  MOVED 
USER  I  0  REQUESTS 
USER  I  0  SUSPENSIONS 
OPEN  CALLS  - 
CLOSE  CALLS 

MEMORY  RESIDENT  DATASETS  - 
TEMPORARY  DATASET  SECTORS  USED 
PERMANENT  DATASET  SECTORS  ACCESS! 
PERMANENT  DATASET  SECTORS  SAVED 
SECTORS  RECEIVED  FROM  FRONT  END 
SECTORS  QUEUED  TO  FRONT  END 


XI J 

HILFER 

34182 

0000 : 00 : 15  1303 
0000:01:10  4314 
0000 : 00 : 13  2222 
0000 : 00 • 00  0021 
2.74438 
)  -  1  72518 

44544 
228864 
40960 
224256 
3584 
5632 
3305 
O 

913 

1306 

35 

34 

0 

145 

ED  =>8  10 

145 
2 

144 


& 


COST  TABLE  FOR  THIS  JOB 


16  ■ 

39 

35 

8323 

1  5 

1381 

USER 

JOBNAME 

XU 

18 

32 

35 

5327 

15 

1382 

USER 

USER  IDENT  - . . 

HILFER 

16 

32 

35 

5330 

15 

1383 

USER 

BEGAN  EXECUTION 

MON 

MAR  28 

1988 

16.30:55 

HOURS 

16 

32 

35 

5333 

1  5 

1384 

USER 

A I  A  PRIORITY  OF 

3 

16 

32 

35 

5  3  37 

1  5 

1385 

USER 

AND  JOB  CLASS  OF 

DSMALL 

1  0 

72 

6340 

15 

1386 

USER 

15 

130789 

SECONDS  OF  CPU  TIME 

I 

S 

630 

00 

HR 

i 

2 

65 

16 

70 

5344 

15 

1387 

USER 

2 

744818 

MEMORY’ CPU  i MWRD  SEC. 

s 

84 

00 

HR 

t 

0 

A  A 

16 

32 

35 

5347 

15 

1388 

USER 

1 

728561 

MEMORY • I  0  i MWRD- SEC  . 

tv 

{ 

84 

00 

HR 

s 

o 

04 

16 

32 

35 

5351 

15 

1389 

USER 

0 

003307 

I  0  MEGASECTORS  MOVED 

$ 

s 

84 

00 

£A 

$ 

1  5 

1390 

USER 

o 

000000 

TAPE  MOUNT!  S  » 

J 

* 

on 

1  6 

3  2 

35 

5412 

15 

1391 

USER 

16 

1  6 

32 

?  2 

"T  C 

=  414 

5416 

1  0 

1391 

1301 

USER 

USER 

TOTAL  COST  F }R 

TH 

IS 

JOB 

t 

3 

3  -J 

218 


y- * 


PLT2.DAT  (Example  Bl) 


_ : st  ar  input  p^RR^erroc 


icono  - 

i 

NHfP 

8 

400C 

♦^UPtP 

2 

NT 

nr 

J02< 

GAIN 

0.400C 

PtST 

i.oo-i: 

RKP 

; . :8-iC 

«$ 

9  :9- iO 

TTnO 

623.00 

rOST 

C.DOOC 

ThST 

C . ' ooc 

FIN*  • 

iG.XG 

TINT 

2G.0GC 

2* CEP  - 

10. OOC 

ZsTCP 

u.OSuu 

uIST  V  INPUT  PfWRnCTEPS  -CONTC' 
CSCC  ’ - !9. ’ -8 '  - 


i.000 

C.OX 

2  200 
o.ooc 

o.ooc 

o.ox 

c.ooo 

c.xo 

o.ox 

c.ox 

o.ooc 

o.xo 

c.ox 

o.ox 

o.xc 

0.000 

’. .  ooo 

0  OOG 

2.000 

0.000 

c.ox 

0  ox 

o.oco 

0.000 

o.ooc 

o.xc 

c.xc 

c.ooc 

0.  XG 

o.ox 

o.ax 

0  ox 

o.ooc 

0.000 

0.000 

0.000 

0.000 

o.ox 

o.ooc 

c.ooo 

c.ox 

o.xo 

c.ooo 

0.000 

o.ox 

o.ox 

o.ox 

o.ox 

1.000 

o.ooc 

2.000 

c.000 

o.ooc 

c.xc 

o.ooc 

c.ooc 

c.ox 

o.ooc 

c.xo 

c.xo 

c.ox 

o.ox 

o.xo 

o.ox 

1.000 

0.000 

2.  OOC 
C.3K 

c.ox 

c.ox 

c.ooc 

c.ooc 

c.ox 

c.ox 

G.000 

c.xo 

c.ox 

o.ox 

o.ox 

o.ox 

C.OX 

0.000 

G  OOO 

o.ooc 

c.ox 

o.ox 

C.OOG 

c.ooo 

c  ox 
c.ox 

C.000 

o.xo 

o.ox 

0  ox 

o.ox 

o.ox 

1 .000 
0.000 

i.QOC 

c.ooo 

0  ooo 
o.ox 

c.ooo 

0.000 

c  ox 
o.ox 

c.xc 

o.xo 

c.ooo 

o.ox 

0  ooo 
o.ox 

l.OOC 

o.ooc 

2.000 

o.ooc 

c.ooo 

o.ox 

c.ooo 

o.xo 

o.ox 

o.ox 

o.xo 

o.xc 

o.ox 

o.ox 

o.ox 

o.ox 

o.ooc 

C.000 

c.ooo 

o.ooc 

c.ox 

c.ooc 

c.ooo 

c.ooo 

o.xo 

o.ooc 

c.ooo 

o.xo 

o.ox 

o.ox 

o.ox 

o.ox 

1  .ooc 
o.ooc 

2.000 
c  ooo 

o.ox 

0  ox 

c.ooo 

c.ooo 

o.ox 

0  XG 

c.ooo 

o.xo 

o.ox 

o.ox 

o.ox 

0.000 

l.OOC 

c.xc 

2 . 000 

C  OCC 

c.xc 

o.ox 

0.000 

o.ooc 

o.ox 

C .  Xu 

o.xo 
0.  xc 

0  ox 
o.ox 

0  ox 
o.ox 

-  ooc 

C.  DOC 

C  OOC 

G  OOC 

c  ox 
c.ox 

o.coo 

0.000 

0  ox 
o.ox 

c.ooc 

C .  Xu 

c.ox 

c.ox 

0  xo 
o.ox 

i  .ooc 
c.coc 

2 .  OOC 

o.ooc 

o.xo 

c.xo 

0.000 

c.ooo 

c.xc 

c.ooc 

c.occ 

C .  Xu 

c.ox 

o.xc 

c.ox 

c.ox 

.  ooc 
: .  :oc 

o  :  jC 
o.ooc 

r  ooc 
o.ox 

o.ooc 

c.ooc 

c  ooc 
:  occ 

c .  ooc 
c.xc 

c  ooc 
c.xc 

o.ox 

c.ooo 

- 

r 

- 

-  - 

c.ox 

c  .zzz 

:  occ 

c.ooc 

c.ooc 

C.OGC 

c.ox 

;  :oo 

-  DOC 

t  JuC 

0  ooc 

:  ooc 

0  xc 

:.occ 
c  ooc 

u  jC-1 

*  xc 

1  xc 

c  ax 
c  acc 

0  ox 

0  MO 

;  .OCC 

:.coc 

2  .  OCC 

c.ooc 

■c.xc 

c.xc 

• .  ooc 
c.ooc 

c.occ 

c.ooc 

c.xc 

c.ooc 

c.ox 

o.ooc 

c.ox 

c.ox 
c  ox 

o.ox 

c.ox 

C.uuu 

c.ooc 

0  xc 
o.ox 

•:!ooc 

C.XC 
c  ax 

c.ox 

c.ox 

c.xc 

3  OOC 

c.ox 

c.ox 

c.ox 

c.ox 

c .  ooc 
c.ooc 

c.xc 

c.ooo 

c.occ 

c.xc 

c.ox 
c  ooc 

c.ox 

o.ox 

l: ST  y  input 

PJW«f«C7C0S 

ICNTC 

w nonwr ! : -e- 

c  xoc 

0  0000 

a  xoo 

0  OOOG 

0  oxc 

C . OOOG 

c.oox 

0.0X0 

POSulNi 1 -8  i- 

i . 0000 

i  .OCX 

:  0X0 

i  oox 

1  .oox 

1 .0000 

..0X0 

i.OOX 

RINTI 1-10'  - 

0  ssoo 

c  ssoo 

:  550C 

:  ssoo 

0  ssx 

0.5SX 

0 . ssoo 

u .  SSGu 

0.S5X 

o.ssac 

torr 1 1 - io i  - 

0.  HOC 

*0. 1 *GG 

G  COX 

C  OOOG 

0.0000 

o.xoo 

o.oxc 

:  oox 

O.OOOG 

O.QOX 

Y"M.2» 

•0.30X 

0.3XC 

TMlOI" 

0. 1X0 

0. 1 OOG 

0.  1XC 

0.  IOX 

c . i ooc 

a.  iox 

0.1X0 

0  IOX 

C.  IOX 

0.  IOX 

i_i$7  or  OlTPuT  p«pnnCTCRS 


T0T«u  InTCnSITi 


3 .82*1  C 
3.02-iC  1 


A 

“I 

S 

: 

j* 

£■ 


? 

•< 

$1 

i 

|| 

* 


v. 

I 

S 
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PLT2.DAT  (Example  Bl) 


PLT2.DAT  (Example  Bl) 


PLT2.DAT  (Example  Bl) 


HI 


PLT2.DAT  (Example  Bl) 


EXAMPLE  B2 


229 


w. 


■vvnv  vnv'  ■ 


PLT2.DAT  (Example  B2) 


wiST  Or  :nPuT  parrmctcps 

list  or  inpijT 

.of»  ’  C 

yx> 

wnewri  i  -8i- 

3.GG0G 

0. OOCC 

0 .  OOCC 
v.OOCC 

juOC 
:  oocc 

:  oooo 

3  3000 

AOScim  1-0*- 

0.0000 

; .oooo 

2  .  OOCC 
: .3000 

2  OOOG 

;  oooo 

. .oooc 

.  3000 

096 

RlNTi l-lOi  - 

0-5500 

0  5500 

u  5500 

C  SSOG 

Q  .5500 

0.4000  ! 

C.S500 

0.5500 

:  5  see 

3. 550C 

0 . 5500 

1  .OG-  1C  ■* 

xorri i-ici  - 

-0.5000 

-0.2500 

C . 25GC 

:  5000 

G .  3000 

i.ie-io* 

9. 19-10* 

THU  .21 

0.0000 

-i.QQQQ 

0.0000 

1.0000 

c  oooo 

0.0000 

0.0000 

633.00 

tmIOTh 

0.1000 

0.1000 

C  100C 

o.iooo 

0.1000 

0.00CQ 

0. (000 

0.1000 

0.1000 

G.iOOO 

0.  ;00C 

0. 1000 

PflMRN  PjMP 


RanflM  pump 


Z*PQ*.  .  **«YP  -  2 


T-OinCHSlO*  iCn 


PLT2.DAT  (Example  B2) 


PLT2.DAT  (Example  B2) 


'vl 

m 

V’.ul 


PLT2.DAT  (Example  B2) 

SOl.-  ■  • 

o>  f-p.  s^pcr  ; 

sT£»rc».  g#*5«€0  -  *c:,a.  .  •  :  y.*.  1  solid  -  iNtt:8rc» 

DflS"C0  •  *f  *  A 

O- 


!«!*»•! 


PfVIP!,  cjMP 


PLT2.DAT  (Example  B2) 


PLT2.DAT  (Example  B2) 


XRL3.CPR 


09  07 
09  •  07 
?  9  O'7 
D  9  O'7 
C9  ■  0" 
0  9  O’7 
09-  ■:■- 
09  :  ^ 
0  9  ‘  O'7 
09  O'7 
09  O'7 
09  •  O'7 
99  :  O7* 
99  O'7 
09  0*7 
09  O'7 
09  :  O'7 
•09  O'7 
09  - 07 
09  07 
09  :  07 
09  07 
09  :  07 
09 ' 07 
09:07 
09  :  07 
09  :  07 


40 

5835 

3 

0000 

CSP 

40 

5858 

0 

0000 

CSP 

40 

5801 

0 

0000 

CSP 

40 

5863 

n> 

oc  00 

CSP 

40 

5869 

0 

300 1 

rsp 

40 

5  8^1 

n 

0001 

CSP 

4  0 

5874 

0 

0001 

CSP 

40 

5878 

0 

0001 

CSP 

40 

5880 

0 

0001 

CSP 

40 

5834 

0 

0001 

CSP 

40 

5887 

0 

CC01 

CSP 

■  40 

5889 

0 

0002 

CSP 

’  40 

5915 

0 

0002 

CSP 

40 

5918 

0 

0002 

CSP 

•  40 

5921 

0 

0002 

CSP 

40 

5924 

0 

0002 

CSP 

40 

5927 

0 

0002 

CSP 

•  40 

6021 

0 

0002 

CSP 

■  40 

6370 

0 

0012 

CSP 

7479 

0314 

9445 

9449 

9494 

9521 

3073 

3081 

3084 


WELCOME  TO  THE  NRL  CRAY  XMP 


Th  9  CRAY  •••*.  i  l  bo  unavailable  Sunday  April  24  from  9  0  C  A  M  -  3  4  ■  C  0  P  m 
for  software  testing 

There  will  be  no  CRAY  off  line  data  set  recalls  on  Ties day  or  Wednesday 
mornings  between  2  00  AM  and  7 • 90  am  m  order  for  us  to  perform  CLEANUP 
runs  on  our  CRAY  archive  tape  library 


Vi 


CRAY  X  MP  SERIAL  415  65 
CRAY  OPERATING  SYSTEM 


JOB . JN-XR3L . MFL-51 1000  US -DEFER 
ACCOUNT . AC- . US-  UPW-.APW- 


naval  research  laboratory  ^4  2:  a* 

COS  1  is  ASSEMBLY  DATE  01  04  88 


1113 

1144 

3470 

3471 

3472 

3473 

3474 
3474 
3  47  4 


USER 

USER 

USER 

USER 

USER 

CSP 

SCP 

SCP 

SCP 


AC213 
AUDIT 

AUO03 
AU003 
AU003 
FETCH 
VAX  TO  CRAY 
VAX  TO  CRAY 
VAX  TO  CRAY 


TOTAL  BUDGET  WARNING  LEVEL  REACHED  FOR  THIS  ACCOUNT  NUMBER 


l  15795201  WORDS 
23744000  WORDS 
92051135  WORDS 


214  datasets.  220297  blocks. 

64  DATASETS.  46406  BLOCXS . 

150  DATA-^tS.  179801  BLOCKS. 

DN-NRAM  TEXT-  'X3L  DAT 

7oS YSTEM  '  70RMAL.  normal  successful  completion 
FILE** 1 SDUa , 07 : [HI LEER • FR2 ] NR3L . DAT ; 4 
808  BYTES  TRANSFERRED 


39  08  00 

5750 

0 

3474 

SCP 

SS004 

DATASET  RECEIVED  from  front  end 

0908: 00 

7286 

n 

3476 

CSP 

ACCESS . 

DN-XR3L 

09  08. 00 

9709 

0 

3470 

PDM 

PDOOO  - 

PDN  -  XR3L 

ID  - 

ED 

-  1 

09:08:00 

9772 

n 

3476 

PDM 

PDOOO  - 

ACCESS  COMPLETE 

09:08:01 

0343 

0 

3478 

CSP 

XR3L. 

09  09  11 

1653 

60 

3756 

ABORT 

AB023  - 

JOB  TIME  LIMIT  EXCEEDED 

09  09  11 

155  5 

00 

3**5  6 

ABORT 

ABOOO  • 

JOB  STEP  ABORTED  P  - 

01261306b 

09 • 09 •  1  1 

165  8 

60 

3758 

ABORT 

ABOOO 

BASE  13061000  LIMIT 

152250 00  CPU  NUMBER  01 

09  0911 

1061 

80 

3756 

ABORT 

TB001  - 

BEGINNING  OF  TRACEBACK 

09 • 09 : 11 

1603 

00 

3756 

ABORT 

- 

CFFT2 

WAS 

CALLED  BY 

09-09  11 

1606 

00 

3750 

ABORT 

1 WCB  )  - 

CF0UR2 

AT 

1206070b 

•  LINE 

09-09  11 

1069 

00 

3750 

ABORT 

1 WCB  )  - 

DER2V 

AT 

1 151416b 

1  LINE 

:  9  0  9  11 

1  6^4 

60 

3"*5  6 

ABORT 

•  WCB  ) 

RAM2D1C 

AT 

1053354C 

1  LINE 

0  9  09  11 

:  5^0 

00 

3750 

ABORT 

TB002 

END  OF  TRACEBACK 

'909  11 

1681 

00 

3756 

EXP 

EXIT 

19  0911 

i-o® 

00 

3750 

CSP 

END  CF 

JOB 

1909  11 

1709 

00 

3757 

CSP 

0909  i ; 

17;  1 

00 

3^57 

CSP 

09  09  1; 

3610 

60 

3758 

USER 

JOB 

NAME 

XR3L 

09  09  ; : 

3814 

80 

3759 

USER 

USER  NUMBER 

H I LFER 

09  09  11 

3617 

60 

3758 

USER 

JOB 

SEQUENCE  NUMBER  - 

40343 

09  09  11 

3620 

60 

3~S3 

USER 

19  09  11 

3624 

90 

3758 

USER 

TIME  EXECUTING  IN  CPU  - 

0000  01. 00 

3758 

:o  09  11 

3027 

90 

3758 

USER 

TIME  WAITING  TO  EXECUTE 

0000  0016 

1166 

09  09  11 

3931 

60 

3759 

USER 

TIME  WAITING  FOR  I  0  - 

0000 : 00 : 13 

2581 

09-09:11 

3834 

60 

3759 

USER 

TIME  WAITING  IN  INPUT  QUEUE 

- 

0000:00 : 00 

0722 

09  09-11 

3637 

00 

3759 

USER 

MEMORY  *  CPU  TIME  iMWDS'SEC 

1  - 

23 

04746 

09:09:11 

3641 

60 

3759 

USER 

MEMORY  *  I  0  WAIT  TIME  (MWDS'SEC) 

1 

84563 

09  0911 

3644 

00 

3759 

USER 

MINIMUM  JOB  SIZE  l  WORDS  1  - 

44544 

:  9  0  9-H 

3647 

60 

3759 

USER 

MAXIMUM  JOB  SIZE  (  WORDS  1 

383488 

'  9  0  9  11 

3051 

60 

3760 

USER 

MINIMUM  EL  < WORDS  >  - 

40960 

09-09-11 

3654 

80 

3760 

USER 

MAXIMUM  FL  (WORDS)  - 

378880 

ONLINE 

OFFLINE 


HILFER 


16  > 
12  » 
228  * 


240 


iKSsSKSSSl 


Xfi.L3.CPR 


;  9  : 9 

;  ; 

3658 

6  0 

3-60 

•USER 

MINIMUM  -JTA  • 

WORDS  »  - 

3584 

Z9  0  9 

I  0 

3  661 

60 

3?60 

USER 

MAXIMUM  JTA  • 

WORDS  ) 

4608 

:  9  : 9 

;  i 

0664 

30 

3-60 

USER 

DISK  SECTORS 

.  OVED 

2?7C 

•^4  “Q 

1 1 

366? 

60 

??60 

USER 

FSS  SECTORS  M 

OVED  - 

0 

•'  :>  a 

1. 1 

36?l 

60 

3-60 

USER 

USER  r  0  REQUESTS 

-4"* 

0?  59: 

1 1 

36?4 

60 

3?60 

USER 

USER  I  0  SUSPENSIONS  - 

1163 

:  9  j  9 

11 

36?'’ 

50 

3—6  0 

USER 

OPEN  CALLS 

20 

19  j9 

Vi 

366  V 

60 

3?50 

USER 

CLOSE  CALLS  - 

18 

:  9  09 

i ; 

3684 

50 

3-60 

USER 

MEMORY  RESIDENT  DATASETS  - 

o 

•*  0  3  9 

11 

368? 

50 

3?  60 

USER 

TEMPORARY  DAT 

ASET  SECTORS  USED  - 

0 

'•'  o  •  a  O 

1 1 

3  691 

60 

3?61 

USER 

PERMANENT  DATASET  SECTORS  ACCESSED  - 

1594 

0  9  09 

li 

3694 

60 

3?6i 

USER 

PERMANENT  DATASET  SECTORS  Saved  - 

0 

09  09 

11 

369? 

50 

3?  81 

USER 

SECTORS  RECEIVED  FROM  FRONT  END  - 

l 

39  ■  09 

1  V 

3  *’0  V 

50 

3-61 

USER 

SECTORS  QUEUED  TO  FRONT  END  - 

0 

09  09 

1 1 

6604 

50 

383? 

USER 

1 1 

6  60  6 

50 

USER 

*  * 

09  :  09 

11- 

6810 

60 

3838 

USER 

cost  Table  for  this  job 

09:09 

i  : 

8613 

50 

3839 

USSR 

JOBNAME  - - 

X  R  3  L 

0  9  0  9 

:  l 

661"* 

60 

3840 

USER 

USER  IDENT . 

H1LFER 

09  09 

:  i 

6520 

60 

3841 

USER 

BEGAN  EXECUTION  -  THU  APR  21. 

1988 

09:0-. 40 

HOURS 

0  9  :  9 

1  \ 

6624 

50 

3842 

USER 

AT  A  PRIORITY  OF  -- 

3 

0?  ^  9 

1  1 

66?8 

60 

'’843 

USER 

AND  JOB  CLASS  OF 

DSMALI 

09  09 

11 

6?1? 

60 

3844 

USER 

60  382510 

SECONDS  or  CPU  time 

a  s  63o.oo 

HR 

S 

10 

5? 

09  09 

u 

e-’ai 

60 

3845 

USER 

23  047894 

MEMORY -CPU  iMWRD-SECl 

as  84 . oo 

HR 

S 

0 

54 

09  :  0  9 

n 

o?25 

80 

3846 

USER 

l  84?95? 

MEMORY*  I  0  i  MWfiD-SEC  ) 

*  S  84  00 

HR 

s 

0 

04 

0  9  0  9 

1 1 

6?28 

60 

3848 

USER 

0  002?7I 

I  0  MEGA SEC TORS  MOVED 

«  t  84  00 

EA 

$ 

0 

23 

:g  0  9 

i . 

5^41 

6  0 

3849 

USER 

0  oooooo 

Tape  mcunti. s  > 

i  S  5.00 

EA 

$ 

2 

00 

0  9  0  9 

ii 

6^46 

50 

3850 

USER 

09  0  9 

u 

3?4? 

60 

3850 

USER 

•  *  *  *  TOTAL  COST  FOR 

THIS  JOS 

*  ‘  ‘  * 

s 

n 

38 

09  09 

1 1 

6?50 

50 

3850 

U  S  LR 

IV  v’v/A/V,' 


<  .  V  /  V  i 

>v  A>  a 


>1  •Wcw-.^  •b^££7£g*E 


XPL3.CPR 


■20  1707 

:  20 .  1712 


0  3491 
0  3493 


■\  q  ^  ^  •y 

“'24*' 

*.  0  ?  0  0 

CSP 

: 9  *0  53 

3250 

0  -0  00 

OS  P 

091053 

3253 

0  O^CO 

osp 

09 : 10  53 

3255 

o  coco 

cs? 

: 9  10-53 

3258 

"1  0^7’ 

cs? 

: 9  10  53 

3  260 

0  0  C  C*  1 

CS  P 

'  The  CR/ 

391053 

3263 

0  0001 

CSP 

■  for  so 

0  9  1053 

3266 

0  00  01 

CSP 

: 9 ■ 10-53 

3268 

0  0001 

CSP 

•  There 

09:10:53 

3271 

•j  •  vjC  1 

CSP 

'  morni 

09 ‘ 10 ' 53 

32^3 

0  0001 

CSP 

*  runs 

09- 1053 

3276 

0  0001 

CSP 

9  10  5  3 

3303 

o  ;oo2 

CSP 

09  10  53 

3306 

0  00  0  2 

CSP 

0910  53 

3309 

0  0002 

CSP 

09  10 ■ 53 

3312 

0  0002 

CSP 

09-1053 

3314 

0 . 0002 

CSP 

09:10  53 

4910 

0  0002 

CSP 

-JOB  .  JN- 

09  1033 

9945 

0  0013 

CSP 

ACCOUNT 

09  1C  55 

0825 

0  1097 

USER 

AC  2  1  3 

091055 

860? 

o  ii  a'7 

USER 

AUDIT 

0  9:  11  .  10 

7238 

0 . 3403 

USER 

AU003  - 

09  11  10 

7242 

0  3404 

USER 

AU003  - 

0911-10 

7246 

D  3405 

USER 

AU003  - 

09-1110 

7326 

0  3  409 

CSP 

ACCESS  . 

09'11:11 

0*74 

0  3409 

PDM 

PDOOO  - 

09-11-1  1 

0170 

0  3409 

PDM 

PDOOO  - 

09:11:11 

9195 

9 . 3412 

CSP 

ACCESS  . 

09 : 1 1 : 1 1 

257Q 

0  3413 

PDM 

PDOOO  - 

09  11:11 

25  “*2 

0  3413 

PDM 

PDCOO  - 

09  11  11 

2590 

0  34  16 

CSP 

ACCESS . 

09  11  11 

4937 

0  341*’ 

PDM 

PDOOO 

09- 11 ■ 11 

4939 

9  3417 

PDM 

PDOOO  - 

39  1111 

4958 

0  3418 

CSP 

ACCESS . 

0911:11 

-’8S7 

0  3419 

PDM 

PDOOO  - 

09.11:11 

7059 

0  3419 

PDM 

PDOOO  - 

09  : :  ii 

7075 

0  34  19 

~SP 

FETCH . 

09  1113 

9169 

0  3  421 

SOP 

VAX  TO 

091113 

9172 

0  3  42  1 

SC? 

VAX  TO 

09:11:13 

91*70 

9  3421 

SCP 

VAX  TO 

391118 

3138 

0  3421 

SCP 

SS004  - 

•0  9  11.18 

5569 

*:  3  42  2 

OSP 

XF3L 

09  11.20 

16  3  0 

0  3489 

PDM 

PDOOO 

09-11  20 

16  83 

0  3  4  3  9 

PDM 

PD009 

WELCOME  TO  THE  NRL  CRAY  XHF 


CRAY  X  MR  SERIAL  415  65  NAVAL  RESEARCH  LABORATORY 


CRAY  OPERATING  SYSTEM 


COS  I  15  ASSEMBLY  DATE  01  n4  88 


TOTAL  BUDGET  WARNING  LEVEL  REACHED  FOR  THIS  ACCOUNT  NUMBER 


214  DATASETS.  226297  BLOCKS. 

64  DATASETS.  46406  BLOCKS. 

ISO  DATASETS.  179891  BLOCKS. 

DN -D I SL IB . ID-DISSPLA . OWN- LIBRARY 
PDN  -  DISLIB  ID  -  DISSPLA 

ACCESS  COMPLETE 

DN-INTLlB . ID-DISSPLA .OWN-LIBRARY . 

PDN  -  INTLIB  ID  -  DISSPLA 

ACCESS  COMPLETE 
DN-DVSD . ID-DISSPLA . OWN -LIBRARY . 

PDN  -  DVSD  ID  -  DISSPLA 

ACCESS  COMPLETE 
DN-XP3L. 

PDN  -  XP3L  ID  - 

ACCESS  COMPLETE 
DN-NPRAM1  .  TEXT-  NP3L  .DAT 
CRAY:  ^SYSTEM  S  NORMAL,  normal  success 
CRAY:  FI LE- $  1 SDUA107 :  (HILFER  FR2]NP3L. 
CRAY:  1880  BYTES  TRANSFERRED 
DATASET  RECEIVED  FROM  FRONT  END 

PDN  -  F3L042168  ID  - 

DATASET  NOT  FOUND 

ATTEMPT  TO  BACKUP  FROM  BOD 

READ  F3L421  READ  PAST  END  OF  DATA 


115795201  WORDS 
23744066  WORDS  ONLINE 
92051135  WORDS  OFFLINE 

ED  -  1  OWN  -  LIBRARY 


ED  -  1  OWN  -  LIBRARY 


ED  -  1  OWN  -  LIBRARY 


1  OWN  -  HILFER 


sfui  completion 
DaT  :5 


1  OWN  -  HILFER 


09:11:20. 

1715 

Q . 3493 

USER 

TB0C1  - 

beginning  OF  TRACEBACK 

09  11:20 

1710 

0  3493 

USER 

- 

$  TRBK 

WAS  CALLED  BY 

SLERP* 

AT 

1137553a 

39  11.20 

*  "72  1 

0  3  4  9  3 

USER 

SL£RP% 

WAS  CALLED  BY 

SRWDP 

AT 

1136510a 

C9  11  20 

1  "*25 

0  3494 

USER 

SRWDP 

WAS  CALLED  BY 

SRUV% 

AT 

1100165a 

09- 11  20 

1728 

0  3  4  94 

USER 

SRUV* 

WAS  CALLED  BY 

PRAM 1 CD 

AT 

1 02425  a i 

09:11-20 

1731 

0  3494 

USER 

TB002  - 

END  OF 

TRACEBACK 

09  11:20 

1730 

0  3494 

ABORT 

AB028  - 

USER  PROGRAM  REQUESTED 

ABORT 

09.1120. 

1739 

0  -  3494 

ABORT 

ABOOO  - 

JOB  STEP  ABORTED.  P 

-  01137500b 

09  11  20 

1741 

0  3494 

abort 

ABOOO  - 

BASE 

Q7703000  LIMIT 

11226000  CPU 

NUMBER 

09  11  20 

1740 

0  3494 

EXP 

EXIT 

09  -  1 1  ' 20 

1705 

0  3494 

CSP 

END  OF 

JOB 

09  11.20 

1708 

0  3495 

CSP 

09  11'20 

17^0 

0  3495 

CSP 

09-11:20 

3  5  C  7 

0  3490 

USER 

JOB 

NAME 

XP3L 

XPL3.CPR 


u 


i' 


i 

i 


£ 

?9  11  20 

3  5  1  3 

3  3496 

VS  ER 

USER  NUMBER 

HILFER 

.9  11  2C 

3513 

3  3496 

USER 

•JOB  SEQUENCE 

NUMBER 

40355 

09  11: 2C 

3516 

0  3496 

USER 

09 : li : 2C 

3519 

0  3496 

USER 

TIME  EXECUTI 

NG  IN  CPU  - 

0000 : 00 : 00 . 3496 

09  11:20 

3522 

0  3496 

USER 

TIME  WAITING 

TO  EXECUTE  - 

0000  00:14  1034 

09  11.20 

3525 

:  3  4  9  6 

USER 

TIME  WAITING 

FDR  I  0 

000 0.00:12  3816 

09 . 1 1  20 

3528 

0  3497 

USER 

TIME  WAITING 

IN  INPUT  QUEUE  - 

OCOO  .00:00  0068 

09  11 ’20 

("1  14  Q-» 

USER 

MEMORY  *  CPU 

TIME  MWES’SEC)  - 

0  02972 

09  11  20 

3535 

0  34  97 

USER 

MEMORY  *  I  0 

WAIT  TIME  -  MWDS 1  SEC  - 

1  50167 

09  1 1 . 2C 

3538 

0  3497 

USER 

MINIMUM  JOB 

SIZE  '  WORDS  1 

44544 

* 

09 : 11.20 

3541 

0  3497 

USER 

MAXIMUM  JOB 

SIZE  1  WORDS)  - 

374784 

09-11: 20 

3544 

0  3497 

USER 

MINIMUM  FL  '. 

WORDS  )  - 

40960 

09  1 1  20 

354*? 

0  3497 

USER 

MAXIMUM  FL  - 

WORDS  )  - 

370176 

0911:20 

3550 

0  3497 

USER 

MINIMUM  JTA 

(  WORDS  > 

3584 

09:11:20 

3553 

0  3498 

USER 

MAXIMUM  JTA 

f  WORDS  »  - 

4008 

09:11:20 

3556 

0  3498 

USER 

DISK  SECTORS 

MOVED 

1888 

09:11:20 

3559 

0  3498 

USER 

FSS  SECTORS 

MOVED  - 

0 

09:11:20 

3562 

3  3498 

USER 

USER  I  0  REQUESTS  - 

733 

09:11:20 

3566 

0  3  498 

USER 

USER  I  0  SUSPENSIONS 

956 

09 : 1 1  20 

3569 

0  3498 

USER 

OPEN  CALLS 

20 

0911-20 

3?72 

0  34^8 

USER 

CLOSE  CALLS 

1  8 

09:11:2 0 

3575 

C  3498 

USER 

MEMORY  RESIDENT  DATASETS  - 

0 

09:1120 

3580 

0  3498 

USER 

TEMPORARY  DATASET  SECTORS  USED  - 

0 

09  1 1 . ao 

3038 

0  3490 

USER 

PERMANENT  DATASET  SECTORS  ACCESSED  -  2483 

09  11.20 

3  Q  42 

0  3498 

USER 

PERMANENT  DATASET  SECTORS  SAVED  - 

0 

09:11-20 

3645 

0  3498 

USER 

SECTORS  RECEIVED  FROM  FRONT  END  - 

1 

09:11-20 

3648 

0  3498 

USER 

SECTORS  QUEUED  TO  FRONT  END  - 

0 

09:11:20 

6494 

0  35-»2 

USER 

0911  20 

6496 

09  11.20 

6  5  00 

;  3573 

USER 

COST  TABLE  FOR  THIS  JOB  *'* 

w 

09-11  20 

8503 

0  3574 

USER 

J CBN A ME  . - 

XP3L 

09-  11  -.  20 

6507 

0  3575 

USER 

USER  IDENT  -  -  -  -  -  - 

HILFER 

09:11:30 

9510 

0  3576 

USER 

BEGAN  EXECUTION  --- 

-  THU  APR  21 .  1988 

09: 10:52 

HOURS 

09 : 11 : 30 

6514 

0  3577 

USER 

AT  A  PRIORITY  OF  - 

- 

3 

09 : 11 : 20 

65  17 

0  3578 

USER 

AND  JOB  CLASS  OF  - 

- 

DSMALL 

09 : 11.20 

6521 

0  3579 

USER 

0355991  SECONDS  CF  CPU  TIME 

4  $  630  00  HR 

S 

0 

06 

0911. 20 

6525 

0  3580 

USER 

0  030136  MEMORY 'CPU  1 MWSD-SEC '  3»  S  84  00  HR 

S 

0 

00 

09-11-2 0 

6529 

0  3581 

USER 

1  503896  MEMORY’!  0  1  MWRD  SEC  >  5)  5  84  00  HR 

s 

0 

04 

0 9:11:30 

0533 

0  35  82 

USER 

0  001890  I  0  MEGASECTORS  MOVED  -3  $  84  00  EA 

s 

0 

16 

09-11:30 

6538 

0  3584 

USER 

0.000000  TAPE  MOUNTfS) 

St  5.00  EA 

J 

0 

00 

w 

09  11.20 

55  40 

0  3  5  35 

USER 

09  1 1 . 20 

6542 

:  3585 

u  S  ER 

•  *  *  *  TOTAL  COST 

FOR  THIS  JOB  '  '  *  ’ 

s 

0 

20 

:9  11  20 

65  45 

j  3  ER 

i 

! 

I 
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NPL3.DAT 


$  FLDATE 
DONYET= 1  , 

MONTH=0 3  , 

DAY  =  30  , 

YEAR  =  88  , 

I PART=2  , 

NEDN=1 , 

$ 

5CONDAT 

LPRMT { 1 ) = 1  , 

LPRMT ( 2 ) =1 , 

LPRMT ( 3 ) =1 , 

LPRMT { 4 ) =0 , 

NSEC=  3 , 

CSEC(1,1)=(1. 0,2.0), 
CSEC(1,2)=(2. 0,2.0), 
CSEC ( 1 , 3 ) = { 3. 0,2.0), 
CSEC ( 2 , 1 )  =  ( 1 . 0,2.0), 
CSEC ( 2 ,2)=(2. 0,2.0), 
CSEC( 2, 3 )=( 3 . 0,2.0), 
CSEC(4,1)=(1.0,2.0), 
CSEC(4,2)«(2. 0,2.0), 
CSEC(4,3)-(3. 0,2.0), 
CSEC(5,1)»(1. 0,2.0), 
CSEC(5,2)=(2. 0,2.0), 
CSEC(5,3)=(3. 0,2.0), 
CSEC(7,1)«(1. 0,2.0), 
CSEC(7,2)=(2. 0,2.0), 
CSEC(7,3)={3. 0,2.0), 
CSEC(8,1)«(1. 0,2.0), 
CSEC  (8, 2)=*  (2. 0,2.0), 
CSEC(8,3)-(3. 0,2.0), 
CSEC( 10 , 1 )=( 1 . 0,2.0) , 
CSEC(10,2)=(2. 0,2.0) , 
CSEC(10,3)  =  (3. 0,2.0) , 
CSEC(11,1)  =  (1. 0,2.0) , 
CSEC( 11 ,2)^(2. 0,2.0), 
CSEC ( 1 1 , 3 )  =  ( 3. 0,2.0) , 
CSEC(13,1)-(1. 0,2.0) , 
CSEC(13,2)  =  (2. 0,2.0) , 
CSEC( 13 , 3)  =  (3. 0,2.0), 
CSEC(14,1)  =  (1. 0,2.0)  , 
CSEC ( 14 ,2)=(2. 0,2.0) , 
CSEC ( 1 4 , 3 )  =  ( 3. 0,2.0)  , 
CSEC(16,1)  =  (1. 0,2.0)  , 
CSEC(16,2)-(2. 0,2.0)  , 
CSEC( 16 , 3)  =  ( 3. 0,2.0), 
CSEC( 17 , 1)  =  ( 1 . 0,2.0)  , 
CSEC(17,2)  =  (2. 0,2.0)  , 
CSEC(17,3)  =  (3. 0,2.0)  , 

$ 

$  2  PLOT 
KZ (  1  )  = 1  , 

KZ( 2  )  =2  , 

KZ(  3  )  =  3  , 

KZ ( 4  )  =4  , 

KZ( 5)=5, 

$ 
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NRL3.DAT 


$NAML 

NPUMP=  4  , 

YM( 1 )=- 1 . 0 , 

YM ( 2 )=1  .0, 

YOFF ( 1 )  =  -  0 . 5  , 

YOFF ( 2 )  =  -  0 . 25 , 

YOFF ( 3 )=0 . 25, 

YOFF ( 4  )  =0 . 5  , 

RIST=1 . 0E- 12 , 

NHYP  =  2  , 

RABAMP ( 1 ) =0 . 0  , 

RABAMP ( 2 ) =0 . 0  , 

RABAMP ( 3) =1.0, 

RDSLIM ( 1 ) =0 . 0  , 

RDSLIM  (  2  )  =2..  0  , 

RDSLIM ( 3 ) =2 . 0  , 

ICOND=  4 , 

ZFINAL=40 . 0, 

ZKEFP=1 0 . 0 , 

GAIN=0 . 4 , 

$ 

NAMEL I ST/NAML/NPUMP , YM , TM , Z INT , RKP , RKS , YOFF , TOFF , YWI DTH , TWI DTH , 

1  YOST , TOST , YWST , TWST , RINT , RIST, RAMASM, RALASM , NHYP , PHL , PHST, TOC , 

2  ITYPE,RTYPE, RABAMP, RDSLIM, I COND , Z STEP , Z F I NAL , ZKEEP , NMAX , TTWO , GAIN 


XRL3.J0B 


AUDIT. 

FETCH / 

ACCESS/ 

XR3L. 

DISPOSE/ 

AUDIT. 

EXIT. 


DN=NRAM / TEXT= • NR3L. DAT 1 . 

DN=XR3L. 

DN=ERRM, DF=BB, WAIT, TEXT= 'XR3L. MSG. • . 
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XPL3.JOB 


AUDIT. 

ACCESS ,  DN=DISLIB, ID=DISSPLA, OWN=LIBRARY. 
ACCESS,  DN=INTLIB, ID=DISSPLA, OWN= LIBRARY. 
ACCESS,  DN=DVSD,ID=DISSPLA,OWN=LIBRARY. 
ACCESS,  DN=XP3L. 

FETCH,  DN=NPRAM1 , TEXT= 1 NP3L. DAT ' . 

XP3L. 

AUDIT. 

DISPOSE ,  DN=META , DF=BB , WAIT , TEXT= ' PLT2 . DAT ' . 
DISPOSE,  DN=EPRM,DF=BB, WAIT, TEXT='XP3L. MSG. ' 
DISPOSE ,  DN=DISOUT , DF=BB , WAIT , TEXT= ' XP3L. DSP 
EXIT. 


APPENDIX  C  2-D  Operation;  Examples 

One  example  is  presented  to  illustrate  the  output  of  the  codes  RAM2D1  and 
PRAM1  in  two-dimensional  simulations. 

EXAMPLE  C 
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PLT2.DAT  (Example  C) 


.1ST  Of  INPUT  PfiRAMCTEB; 


LIST  or  INPUT  PPBPMETCPS  CONTG . 


:conc 

2  1 

j  5Pr  i ;  -g  ■  - 

-1  -1 

- 1 

-1  -1 

- 1 

!  L.N 

i  : 

LEVEL 

5  3 

1 

5  6 

3 

9 

I5HM 

i  : 

PHLil-lOl  - 

0.0000 

0.0000 

0.30CC 

0.0000 

C.GCOC  ■ 

nocc 

3 

0 . 0000 

0.0000 

O.OOuG 

o.ocoo 

0 . 0000 

NnyP 

8 

PINT 1 1  - lOi  - 

0.0800 

0.0800 

C.55GC 

C.S5C-C 

0.5500 

NMftX 

iooo 

0.5500 

0.5500 

0 . 550C 

0.5500 

0.550C  1 

NPUMP 

2 

TM I  1  , 2 ' 

-100.00 

100.00 

NT 

128 

Torn  i-ioi  . 

0 . 0000 

0.0000 

0.0000 

C.000G 

0 . 0000 

NT 

512 

0.0000 

0.0000 

0 . 0000 

0.0000 

0.0000 

jPlN 

2.0000  1 

TwiOTH 

10.000 

10.000 

10.000 

10 . 000 

10.000 

phst 

C .  0000  1 

10.000 

10.000 

10.000 

10.000 

10.000 

5.000C  i 

rorri i-ioi  - 

0.1100 

-0.1100 

0.0000 

0.0000 

0.0000 

1.5000  ( 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

»!5T 

0.0002  r  1 

mi  1.2) 

-0.5000 

0.5000 

i 

R*P 

!  .  1800-10'  | 

IWIOTh 

0.1000 

0.1000 

0. 1000 

0. 1000 

0.1000 

Rks 

91893. 

0.1000 

0. 1000 

0.1000 

0. 1000 

0.1000 

t  nr 

5 . GOOD 

t5st 

-10.000  j 

1 

TT-40 

633.00 

TuST 

10.000  I 

i 

:  C5T 

0.0000  ; 

;  wST 

0.  1000 

~S '  nPl 

10.000 

*  ;\7 

20.000 

;kK? 

1 . 0000 

Z5TEP 

0 . 0500 

i 

1 

_I5T  Jr  INPUT  rnRWICTCrS  iCGNtU' 
C5EC 1-19,1-81  - 


List  Of  OUTPUT  »«nne:CPS 


4:888  8: 
8:888  8: 
8:888  3: 
6:888  8: 


8:888  8: 


p-jhp  TOTAL  InTCnSITt 

:  ;  .oo.io'* 

;  2.00-10* 


:388  8:388 
:888  8:588 


*  •  30C 

J  .  V  -  J 

5:838 

8:888 

8:888  8: 

*  •  wW* 

5:388 

3:388 

8:388  8: 

-  ■ 

-> .  .I/J 

5:388 

8:388 

3:388  5: 

*  *** 

:-xs 

-  .  'juL 

8:388 

8:385  5: 

X  X** 

-  .  JOU 

5:388 

8:388 

8:388  5: 

!:338 

8:388 

8:388 

5:388  5: 

5:388 

8:888 

8:388 

3:388  5: 
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APPENDIX  D  Special  Versions  of  the  Codes 

It  shall  be  mentioned  that  several  special  versions  of  the  presented  two  programs 
RAM2D1  and  PRAMl  exist.  As  was  mentioned  in  section  IV. B. 5,  the  code  RAM2D1C 
described  in  this  manual  is  paralleled  by  the  code  RAM2D1D.  The  D  version  differs 
from  the  C  version  in  that  it  does  not  keep  the  field  arrays  in  memory  during  execution 
of  the  program,  but  ships  them  in  from  and  out  to  storage  disk  as  needed. 

The  versions  A  and  B  of  RAM2D1  are  the  same  as  versions  C  an^  D  in  function, 
but  different  in  form.  They  are  adapted  for  use  under  the  CTSS  operating  system 
as  installed  in  the  National  Magnetic  Fusion  Energy  Computing  Center  (NMFECC) 
at  the  Lawrence  Livermore  National  Laboratory  (LLNL),  CA,  where  the  code  was 
implemented  first.  The  A  and  B  version  take  the  CIVIC  FORTRAN  compiler  while 
the  C  and  D  versions  ought  to  be  compiled  by  the  CFT  compiler. 

Since  the  data  from  either  RAM2D1A  or  RAM2D1B  have  the  same  format,  one 
version  of  the  diagnostic  program  PRAMl  is  sufficient.  This  is  called  PRAMlAB. 
In  connection  with  the  theoretical  studies  just  mentioned,  several  special  adaptations 
of  PRAMlAB  span  off.  These  are  PRAM1A,  PRAMlB,  PRAMlC,  PRAMlD,  and 
PRAMlE.  The  output  data  files  from  the  NRL-based  RAM2D1C  and  RAM2D1D  are 
also  identical  in  form  and  are  diagnosed  with  PRAMlCD  which  is  described  in  this 
manual. 

A  special  version  of  RAM2D1A  is  called  RMS1DT  which  is  basically  identical 
with  RAM2D1A,  but  contains  an  additional  block  of  code  that  is  executed  when  the 
program  runs  in  the  one-dimensional  transient  limit.  In  this  limit,  an  extra  output  file 
with  time  history  data  on  the  fields  is  created.  This  version  was  used  for  obtaining 
comparison  with  the  results  of  a  theory  pertinent  to  strong  pump  depletion  developed 
by  the  authors.  The  associate  diagnostic  program  of  RMS1DT  is  PRAMlE  which  plots 
the  number  of  depletion  holes  in  the  pump  and  the  ratio  of  initial  to  final  pump  energy. 
An  expanded  version  of  PRSE  is  PRlENL  which  calculates  and  plots  also  other  aspects 
of  the  analytical  theory. 


APPLICATION  OF  LIE  METHODS  TO 
AUTONOMOUS  HAMILTONIAN  PERTURBATIONS  OF 
THE  KORTEWEG-DE  VRIES  EQUATION: 
SECOND  ORDER  CALCULATION 


C.R.  Menyuk 

Department  of  Electrical  Engineering 
University  of  Maryland 
Catonsvilie,  MD  21228 
and 

College  Park,  MD  20742 
USA 


ABSTRACT 

The  Lie  perturbation  method  of  Hori  and  Deprit  is  a  practical  method  for 
determining  the  evolution  of  nearly  integrable  finite-dimensional  Hamilto¬ 
nian  systems.  I  show  how  to  extend  this  approach  to  small,  autonomous 
Hamiltonian  perturbations  of  the  Korteweg-de  Vries  equation.  Explicit 
second  order  calculations  are  carried  out  in  some  simple  cases  where  the 
initial  data  contains  a  single  solitary  wave  and  a  small  amount  of  radiation. 
We  show  explicitly  that  a  solitary  wave  will  emerge  from  the  initial  data 
through  second  order.  This  approach  can  be  extended  to  arbitrarily  high 
order. 


I.  INTRODUCTION 

Nonlinear  wave  equations  which  can  be  integrated  using  spectral  methods  are 
quite  special.  Nonetheless,  they  play  an  important  role  in  physics  and  have  been 
used  to  model  a  wide  variety  of  phenomena.  Generally,  these  equations  are  derived 
by  making  a  small  parameter  expansion  of  the  underlying  physical  equations.  At 
zeroth  order,  one  obtains  the  linear  equation.  Moving  into  the  wave  frame,  one 
obtains  the  integrable  wave  equation  at  first  order.  If  this  process  is  continued 
to  higher  order,  one  obtains  corrections  which  in  general  destroy  the  equation’s 
integrabilityl1-'*!.  The  two  most  experimentally  important  examples  which  lead  to 
the  Kortweg-de  Vries  equation  are  water  waves  in  channels!1’5,6!  and  ion  acoustic 
waves  in  plasmas!2,7,8!.  In  the  first  case,  the  underlying  physical  equation  is  Euler’s 


equation  with  appropriate  boundary  conditions,  and  small  parameters  include  d/h, 
the  height  of  the  pulse  divided  by  the  height  of  the  channel,  and  h/l,  the  height 
of  the  channel  divided  by  the  length  of  the  pulse.  In  the  second  case,  the  under¬ 
lying  equations  are  the  two  fluid  equations  with  inertia-less  electrons  and  constant 
temperatures.  Small  parameters  include  Sn/n,  the  size  of  the  ion  density  pulse  di¬ 
vided  by  the  undisturbed  ion  density,  and  Ti/Te ,  the  ratio  of  the  ion  and  electron 
temperatures. 

Experimentally,  one  finds  that  these  small  parameters  can  be  quite  large,  as 
large  as  0.3-0. 4  using  standard  normalizations,  and  solitons  (or  more  precisely  soli¬ 
tary  waves)  are  seen  to  emerge  from  an  initial  pulse  just  as  if  the  system  was  inte¬ 
grate;  however,  their  widths  and  velocities  are  related  to  their  heights  somewhat 
differently  than  in  the  Korteweg-de  Vries  equation!5-8!.  By  contrast,  relatively 
small  dissipative  perturbations — or  perturbations  that  vary  in  space  and  time — are 
sufficient  to  destroy  the  integrable-appearing  behavior. 

In  the  past  I  have  tried  to  provide  qualitative  insight  into  this  behavior  by  show¬ 
ing  that  the  higher  order  corrections  yield  Hamiltonian  perturbations  that  do  not 
vary  in  space  and  time!3’*!,  i.e.  autonomous  Hamiltonian  perturbations,  and  that 
under  certain  conditions,  which  the  experiments  reproduce  reasonably  well,  solitary 
waves  emerge  to  all  orders  in  the  small  parameters!9-12!.  There  are  important  re¬ 
strictions:  First,  an  asymptotic  theory  in  which  secularities  are  removed  order  by 
order  can  only  be  carried  out  once  the  solitons  corresponding  to  the  poles  of  the 
spectral  data  are  well-separated.  Previous  to  this  separation,  the  solitary  waves 
interact  and  continuum  radiation  and  even  new  solitary  waves  can  be  produced. 
By  reducing  the  perturbation  strength,  the  amplitudes  of  any  new  solitary  waves 
produced  and  their  number  can  be  bounded.  A  second  restriction  is  that  the  theory 
in  its  present  form  is  non-uniform  in  x,  the  coordinate  space.  As  a  consequence, 
the  possibility  cannot  be  ruled  out  that  a  portion  of  the  continuum  “to  all  orders” 
might  actually  be  a  low,  broad  solitary  wave  “beyond  all  orders.”  The  converse  also 
holds.  A  third  restriction  is  that  we  consider  initial  data  which  falls  off  faster  than 
some  exponential  as  x  — *  ±oo  and  which  is  analytic  in  some  strip  surrounding  the 
real  axis  in  complex  z-space. 

Despite  these  restrictions,  it  is  my  hope  that  this  perturbative  approach  will 
prove  quantitatively  useful  in  the  long  run.  While  it  is  simpler  to  determine  solitary 
wave  solutions  by  looking  for  stationary  solutions  of  the  equations,  such  an  approach 
docs  not  allow  one  to  determine  the  amplitude(s)  of  the  solitary  wave(s)  which  will 
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ultimately  emerge  from  given  initial  data.  The  approach  presented  here  does. 

In  this  work,  I  will  be  concentrating  on  the  experimentally  important  case  where 
the  initial  data  contains  only  a  single  solitary  wave,  or,  more  precisely,  only  a  single 
pole  in  the  transmission  data.  We  thus  avoid  any  problems  related  to  solitary  wave 
interactions.  I  will  be  using  a  Hamiltonian  approach,  specifically  the  Lie  approach 
first  developed  by  Hori!13!  and  Deprit!14!.  I  use  a  Hamiltonian  approach,  rather 
than  a  more  general  approach  such  as  that  of  Karpman  and  Maslovl15l  or  Kaup  and 
Newell!16!,  because  it  allows  one  to  concentrate  in  a  natural  way  on  the  autonomous 
Hamiltonian  systems  and  obtain  results  which  only  apply  to  them.  I  use  the  Lie 
approach  rather  than  the  Poincare-von  Zeipel  approach  because  the  Lie  approach  is 
now  generally  considered  the  simpler  of  the  two  to  use!17). 

I  will  be  concentrating  in  this  paper  on  perturbed  Hamiltonians  of  the  form 


which  is  just  the  Korteweg-de  Vries  equation  with  a  small  perturbation.  The  case 
p  =  2  corresponds  to  a  Gallilean  transformation;  the  case  p  =  3  corresponds  to 
a  change  in  the  nonlinear  coefficient  of  the  Kortweg-de  Vries  equation;  and  the 
case  p  =  4  corresponds  to  a  Miura  transformation.  The  case  p  =  5  produces  a 
non-integrable  system.  For  these  relatively  simple  examp1  .a,  I  will  calculate  the 
perturbed  Hamiltonian  through  second  order,  as  w’ell  as  the  perturbed  potential  u 
through  first  order. 


In  previous  work,  I  have  studied  other  simple  examples,  but  only  through  first 
order10!.  My  motivation  for  carrying  out  explicit  second  order  calculations  is  that 


some  of  my  colleagues,  notably  Yuji  Kodama,  felt  that  this  calculation  would  be 
very  useful  in  clarifying  the  basic  structure  of  the  theory  by  showing  in  detail  how  to 
avoid  secularitics,  as  must  be  done  in  any  Hamiltonian  theory.  One  must  divide  the 
Hamiltonian  between  its  coordinate-independent  and  coordinate-dependent  pieces 
and  group  the  former  with  the  zero-order  Hamiltonian  at  each  order.  The  first 
non-trivial  order  at  which  this  separation  must  be  carried  out  is  second  order. 

In  previous  work  I  have  primarily  employed  Hamiltonian  perturbation  theory 
to  show,  with  the  limitations  described  earlier,  that  solitons  emerge  from  arbitrary 
initial  data  to  all  orders  in  the  small  parameter  for  a  large  class  of  Hamiltonian 
perturbations'11,12!.  The  goal  was  to  obtain  insight  into  the  experimentally  ob¬ 
served  robustness  of  solitons!5'8!.  In  this  respect  my  work  was  motivated  by  Martin 
Kruskal’s  classic  study  of  the  theory  of  adiabatic  invariants!18!,  and,  in  my  opinion, 
the  approach  and  conclusions  are  conceptually  similar.  Nonetheless,  it  is  my  hope 
that  this  approach  will  ultimately  prove  useful  in  carrying  out  detailed  quantitative 
comparisons  between  theory  and  experiment,  much  as  it  has  proved  useful  in  the 
study  of  satellite  orbits  about  the  Earth!13,1,1!,  and  particle  motion  in  accelerators!17!. 
In  order  for  the  theory  to  be  useful  in  this  regard,  one  must  be  comparing  to  exper- 
;ments  where  the  perturbations  are  quite  small,  the  distances  quite  large,  and  the 
measurements  quite  precise.  While  experiments  modelled  by  field  equations  do  not 
seem  to  fulfill  these  conditions  at  present.  It  is  my  belief  that  they  will  do  so  within 
the  next  twenty  years. 

The  remainder  of  this  paper  is  organized  as  follows:  In  Section  II,  we  specify  the 
action-angle  transformation  from  u(x)  to  [p(&),  q(k),  pa,  ga],  the  canonical  variables 
which  evolve  linearly  in  time.  In  Section  HI,  we  show  how  to  write  the  Hamiltonian 
in  terms  of  the  canonical  variables.  In  Section  IV,  we  show  how  to  obtain  the  lowest 
order  Lie  generator  and  discuss  the  problem  of  small  denominators.  Section  V  con¬ 
tains  the  explicit  calculation  of  the  second  order  perturbed  Hamiltonian  and  includes 
the  determination  of  the  second  order  Lie  generator.  In  Section  VI,  we  calculate  the 
first  order  potential.  Section  VII  contains  the  conclusions  and  acknowledgments. 

U.  ACTION-ANGLE  TRANSFORMATION 

Before  I  can  apply  Hamiltonian  methods  to  the  perturbed  system,  I  must  de¬ 
termine  action-angle  variables  for  the  underlying  integrable  system.  Quite  generally, 
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we  may  write  the  original  coordinates  as  u,  where  u  =  u,  in  a  system  with  a  discrete 
number  of  independent  variables  and  u  =  u(i)  in  a  system  with  an  uncountably 
infinite  number  of  degrees-of-freedom.  We  are  interested  here  in  the  latter  case.  We 
are  searching  for  an  invertible  transformation  of  the  form 

» (5) 

where  J  and  6  represent  the  ensemble  of  action  and  angle  variables;  in  general,  J  and 
8  can  have  both  uncountably  infinite  and  discrete  components.  The  set  of  variables 
J  and  6  should  be  canonically  related  to  each  other,  and  the  Hamiltonian  should 
only  depend  on  the  action  variables  J. 

The  equations  of  motion  in  terms  of  these  new  variables  is  trivially  integrable. 
Writing  H  for  the  ensemble  of  frequency  variables,  t.e. 

fii  =  dH\J}/dJi  and  fi  (k)  =  dH{J]/dJ{k),  (6) 


for  the  discrete  and  continuous  components,  it  follows  that 

J  =  Jo, 

6—0  o  +  fit, 


(7) 


where  Jo  and  80  represent  the  ensemble  of  initial  conditions.  At  any  time,  we 
may  determine  u(i)  by  inverting  the  action-angle  transformation.  This  situation 
is  shown  schematically  in  Fig.  1.  If  we  take  the  direct,  left-hand  path  shown  as  a 
dashed  arrow  and  integrate  the  equations  of  motion  using  a  computer,  it  is  gen¬ 
erally  necessary  to  take  many  small  time  steps.  By  contrast,  if  one  integrates  the 
equations  of  motion  using  the  solid,  three-sided  path,  one  can  carry  out  the  time 
integration  in  one  fell  swoop.  Hence,  no  matter  how  complicated  the  backward  and 
forward  transformations,  one  always  “wins”  using  the  three-sided  approach  over  a 
sufficiently  long  time  interval.  I  note  that  this  notion  of  “winning,”  w'hile  useful,  is 
not  precise,  something  which  can  also  be  said  of  the  notion  of  integrable  systems. 
For  linear,  infinite-dimensional  systems,  the  three-sided  path  represents  Fourier  in¬ 
tegration;  for  nonlinear,  infinite-dimensional  systems,  it  represents  an  analogous 
nonlinear  transformation. 


The  appropriate  action-angle  transformation  when  the  underlying  integrable 
system  is  the  Korteweg-de  Vries  equation,  was  first  found  by  Zakharov  and  Fadeev!19!. 
They  begin  by  making  the  spectral  transformation!19! 


u(x)  -  [r(fc),*y,cJ], 


(8) 
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Action-Angle  Transform 


[J(o)  =  J0,  9(o)  =  0o] 


Inverse  A-A  Transform 


[J(t)  =  JG,  eit)  =  0o  +  Qt] 


FIGURE  1.  Schematic  illustration  of  the  way  in  which  an  action-angle  transform 
and  its  inverse  can  be  used  to  solve  the  equations  of  motion  of  a  completely  integrable 
system. 

and  then  converting  these  variables  into  the  appropriate  action-angle  form.  I  will 
make  a  slightly  different  choice  of  variables  from  theirs  which  proves  to  be  useful 
in  what  follows.  Concentrating  on  the  case  where  the  initial  data  contains  a  single 
soliton,  my  choice  is 

2k 

p(k)  =  ln[l  -  r(Ar)r(— *)], 

f(*)  =  ln[r(fc)/r(-fc)], 

4  21  (9) 

*  3 

=  3««. 

1  , 

Q oc  ~~  Ca , 

*ar 

where  the  subscript  a  indicates  the  single  soliton.  The  Hamiltonian  becomes 

/■oo  i o  .  ?2/3 

ff0  =  Jq  dkSk3p{k)  -  —j;  p*J3,  (10; 

which  depends  only  the  action  variables,  and  the  Poisson  bracket  becomes 

00  f  dF  dG  dF  dG 


dq{k)  dp(k)  dp(k)  dq(k) 

dF  dG  dF  dG 


WV.W'.V 


flrwinr'vrw  vt ivt  utc  ut  w~»  \rm  v"»  wnt 


which  is  canonical  in  form.  1  take  the  k  integrals  over  the  half  interval  [0,  oo),  rather 
than  the  full  interval  (-00,  oo),  which  helps  in  keeping  track  of  the  cross  terms 
which  appear  in  the  theory  between  —k  and  k.  These  integrals  must  eventually  be 
extended  first  over  the  full  interval  and  then  into  the  upper  half  plane.  The  soliton  ■H 

variables  qa  and  pa  are  related  to  those  used  by  Zakharov  and  Fadeevl19!  by  a  simple 
canonical  transformation. 

I  close  this  section  with  an  important  aside.  The  canonical  form  of  the  Poisson 
bracket  in  Eq.  (11)  follows  from  the  form  of  the  Poisson  bracket  in  Eq.  (3).  Once  ^ 

the  Korteweg-de  Vries  equation  is  perturbed,  it  is  not  evident  a  priori  that  this 
symplectic  structure  will  suffice  at  all  orders.  Recently,  H.  H.  Chen  and  ll3,4l  have 
shown  that  it  does  indeed  suffice  in  cases  where  the  physically  important  systems 
of  one-dimensional  ion  acoustic  waves  or  shallow  channel  water  waves  are  being 
considered. 


in.  DETERMINING  THE  HAMILTONIAN 

My  next  task  is  to  re-express  the  Hamiltonian,  H[u]  =  4-  1H1  [u]  explicitly 

in  terms  of  the  canonical  variables.  Zakharov  and  Fadeev  have  showed  us  how  to 
obtain  an  explicit  expression  for  Ho[u],  and  the  result  is  given  by  Eq.  (10).  Their 
procedure,  however,  cannot  be  applied  to  the  general  case  where  the  Hamiltonian 
Hi[u\  will  depend  on  the  canonical  coordinates  as  well  as  the  momenta.  Instead,  I 
directly  calculate  H \  [uj.  I  begin  by  determining  u  in  terms  of  the  canonical  variables. 
In  the  case  of  interest  here  where  u  contains  a  single  solitary  wave  (or  more  precisely 
the  transmission  coefficient  has  a  single  pole  at  the  initial  time),  I  write 

u  =  ua +2~K{x>x),  (12) 

ax 

where 

ua  =  -2/c*  sech2[/ca(x  +  qa/ 2)J 

is  the  single  soliton  solution  and  K(x,y)  is  given  by  the  solution  to  the  Marchenko 
equation 

K{x,  y)  +  F(x,y)  +  f  dz  K(x,z)F(z,y)  =  0  .  (13) 

J  —  OO 

The  kernel  F(x,y)  is  given  by  the  relation 

F(x,y)  =  [  7T  r{k)ga(x,k)ga{y,k),  (14) 

J- 00 
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where 


where 

,  .  fk  -  \kq  tanhl/cot(a  4-  ga/2)]\  .  v 

ga{x,k)  =  exp(-.fci)  y - (15) 

is  the  left  Jost  function  corresponding  to  a  single  soliton  potential.  The  Neumann 
expansion  of  Eq.  (13) 


K[x,y)  =  -F{x,y)  +  f  dz  F(x,  z)F(z,y) - , 

J  — OO 


(16) 


is  always  convergent.  This  Neumann  expansion  is  essentially  an  expression  in  powers 
ofr(fc).  Writing  now, 

u  =  ua  +  Uj  ■+■  U2,  (17) 

through  second  order  in  powers  of  r(k),  and  letting 

i  =  x  +  qa/ 2,  (18) 

I  find  explicitly 

,  f°°  dk  t *exp(-2»&£) 

Ui=4Aeo^,We>cpf‘^) 

y.  [nj  sech!j  (k0£)  +  bj sech2j  (Kaf)  tanh(*0£)l,  (19a) 

J=0 

„  f°°  dk\  /f  x  f°°  dki  _n  *exp[i(fci  + /:2)ga]  exp[— 2i'(^i  +  fc2)f] 

!  ”  ~2.L,  ^r{k')J.„^,lk,:) — (-.)(*, 


2 

Jc3  sech2j(/ca£)  4-  dj  sech2-7  (<cQ£)  tanh(K.Q£)j  , 


(I9t) 


i=o 


w'here 


a0  =  ik(k2  -  kI ), 
&o  —  2k2Ke 


*QJ 


ai  =  2ikK2a , 

&i  = 

Co  =  2l(/:i  4-  ^2 )  [  (^1  ^2  —  «q)*  ~  [kl  +  k2)2AC2], 
do  =  4( fci  4-  kj)2(kik2  —  k\)k0, 

Ci  =  2i(fci  4-  ^2) [(^-1  +  k2)2  +  {2k\k2  —  3/^^)]/c2 

d\  —  2[2(^1  4-  &2)2  +  (^1^2  ~  *a)l*a 

c2  =  3 1  ( fc  1  4-  k,)K* 
d2  0. 


(20) 


Q> 
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FIGURE  2.  Schematic  illustration  of  an  integration  path  through  the  upper  half 
Bargmann  strip,  represented  by  the  hatched  region.  The  dots  represent  poles. 

In  calculating  Eq.  (19b),  I  had  to  exchange  an  integral  of  the  form  dz  ■  •  • 
with  two  integrals  of  the  form  dk-“.  The  integral  over  z  was  then  explicitly 
evaluated.  This  exchange  is  only  valid  when  Im(k)  >  0,  ».e.,  when  the  integrals 
over  k  are  performed  in  the  upper  half  Bargmann  strip  shown  schematically  as  the 
hatched  area  in  Fig.  2.  While  quite  simple  conceptually,  this  result  is  important  as 
it  tells  me  how  to  integrate  around  the  poles  which  appear  in  the  theory  on  the  real 
A:-axis. 

At  this  point,  I  determine 

#iM  =  r  (2i) 

J  — OO 

in  terms  of  the  canonical  variables.  To  do  so,  I  need  to  exchange  the  integral 
d£  •  •  •  with  the  integrals  over  k.  This  exchange  is  not  permitted  unless  the 
integrand  decreases  exponentially  as  £  — ►  +oo  which  is  not  always  the  case.  When 
that  is  not  the  case,  we  may  pick  up  a  6-function  contribution.  To  show  how  this 
works,  I  first  consider  the  case  p  =  2.  In  this  case 

uJ  =  u*  -i-2uaUi  +  Ui  +2uiua;  (22) 


so,  writing 


H i  =  ho  -H  hi  +  h2, 


(23) 
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where  I  have  expanded  H \  in  powers  of  r(fc)  through  second  order,  I  find 

ho  =  J  =  4k  4aJ  sech4{Kat)dt  =  j/c’- 

I  also  find 


(24) 


hi  =  f  2uauj 

J  —  OO 

which  is  non-singular  and  yields 

,  ,  f°°  dk  /fl  .  /■“  exp(— 2i7c£) 

1  =  -™l-^r{-k)eM'ku) l-J*  <*+}«.)» 

[ifc(/c2  —  /c2  )k2  sech2(Ka£)  +  2k2 K3a  sech2(*a£)  tanh(/c0£) 
4-  2:A:/c*  sech<(«Q$)  +  k®  sech4(#ca£)  tanh(«a£)]  =  0. 

At  next  order, 

h2  =  f  (u?  +  2uau2)  <f£  =  +  h^n) 

J  —  OO 


(25) 


(26) 


(27) 


has  both  a  singular  part  and  a  non-singular  part  h^.  The  non-singular  part 
can  be  shown  to  equal  zero,  and  I  concentrate  on  the  singular  part, 


h2j)  =  f1^16/  ^rr(*0  /  ^r(fcj)exp[t(*i  +fc2)9a] 

Ak\k\  -  kxk2{k\  -  *2)(A:|  -  /c2) 


j_j^p[-2l{k1  +  kM — (fcl  +-;K.)2(jfc7T.-K.j* — •  (28) 


Since  the  limit  operator  is  outside  the  integral  over  kx  the  exchange  of  the  integrals 
over  ki  and  is  legitimate.  To  evaluate  Eq.  (28),  I  first  explicitly  carry  out  the 
integral  over  assuming  both  ki  and  k2  are  in  the  upper  half  Bargmann  strip.  We 
then  lower  the  contour  over  kx,  avoiding  the  pole  as  shown  in  Fig.  3.  The  continuous 
part  of  the  integral  vanishes,  leaving  only  the  pole  contribution.  I  thus  find 


(29) 


where  |r(fc)|  indicates  the  usual  absolute  value  on  the  real  k-axis  and  its  analytic 
extension  elsewhere.  I  conclude 


*-7  ‘-  +  80‘w- 


(30) 
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FIGURE  3.  Illustration  of  the  integration  path  as  /m(Jfci)  is  decreased.  The  dot 
represents  a  pole.  As  Im(k i)  is  decreased,  the  pole  yields  a  5-function  contribution. 


which  agrees  through  the  order  to  which  we  are  working  with  the  exact  result  of 
Zakharov  and  Fadeev!19!. 

“ 4  -  »/_”  %  ln[l  -  |r(t)|=],  (31) 

Since  H\  only  depends  on  the  momenta,  a  soliton  in  the  unperturbed  equation 
remains  a  soliton,  although  its  velocity  of  propagation  changes. 


When  p  =  3  or  p  =  4,  the  equations  are  still  integrable,  but  the  initial  condi¬ 
tions  for  a  soliton  are  changed,  and,  as  a  consequence,  the  hn  will  depend  on  the 
coordinates  just  as  in  the  non-integrable  case  where  p—  5.  Explicitly,  I  first  obtain 
the  result 


h0  =  aW^-1, 


(32) 


where 


a(3)  =  _H£  q(4)  =  — .  a(5)  —  _ 


15  ’ 


512 
35  ’ 


8192 
315  ' 


(33) 


Next,  I  find 

/°°  dk 

—  r(k)  exp (ikga)k2{k  -  i Ka)2 (k,  /ca)  csch  (£«■/«<,),  (34) 
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■P  3  =  1,  PW  =  {Ic2+4kI),  p(5>  =  (Jfc2  +  4/c2)(*2  +  9«2).  (36) 

Finally,  I  obtain 

r  ^r(k,)  r  bM 

J-oo  27T  '  J-oo  27T  '  (fci  +  »/CQ)2(fc2  +  «*a)2 

Q^Hki,k2,Ka)R^(kltk2,Ka)(ki  4-  *2)  csch[?r(A:i  4-  fc2)//ca],  (37) 

where 


7(3)  _  _®1 
7  3  * 


7(<)  _ 


^s>  =  -- 


<?(3)  =  1,  Q(«)*(*1+*2)2+,£f  g(5)  =  [(A:1+fc2)2+4][(fcl  +  jk2)2+4K3l.  (39) 

The  quantity  J?(p)  is  a  polynomial  of  the  form 

,R(p)  =  a^/c®  +  a[p\ki  4-  fc2)2/c*  +  kik2K*a  4-  a*f\ki  4-  k2)4K 2 
4-  a^^.fc2(^1  4-  k2)2K2a  4  a^k\kln2a  4-  «4r'(fcj  4-  k2)6 


where 


-f4p) 

+  k*)4 

+  a[p) klk2(ki  +k2)2  4-4o)fcifc2> 

(3)  _  , 

1  —  1 

a <3)  =  3 

*<3>  =  -7 

a[3)  =  3 

at3)  _ 

a5  — 

S4)  =  4 

44>  =  9 

44)  =  -26 

4<>  =  6 

44,= 

<5>  =  27 

4S)  =  57 

45)  =  -192 

45)  =  33 

4S>  = 

i3)  =  17 

4”  -  1 

43)  =  -7 

43)  =  17 

43o>  = 

=  52 

4‘>  =  1 

44)  =  -9 

4“°  =  28 

•ft'  = 

i5)  =  375 

4!>  =  3 

45)  =  -32 

o^5)  =  135 

4V  = 

There  are  no  singular  contributions  in  any  of  these  cases. 

Structurally,  these  results  are  simpler  than  they  perhaps  appear  at  first  glance. 
For  all  possible  perturbations  of  the  sort  we  are  interested  in,  polynomial  in  u,  its 
derivatives,  and  its  integrals,  one  finds  that  hn  has  the  general  form^11! 

/CO  *t  /*00  *r 

“■K*»)|- /  "27  lr(^n)|exp[-ig(fcl) - iq{k2) 

+  1  (fci  H - (-  fc„)?0jhn(fc,,  •  a0).  (41) 


mmm 


Hence,  the  dependence  on  the  canonical  coordinates  (as  opposed  to  the  canonical 
momenta)  is  entirely  isolated  inside  the  argument  of  imaginary  exponentials.  The 
quantity  hn  depends  only  on  Ka  and  thus  pa.  In  general,  it  consists  of  a  number  of 
terms,  each  of  which  is  a  rational  function  of  its  arguments  and  may  be  multiplied 
by  a  6-function  factor  of  the  form 

«<£*,) 

3 

due  to  a  singular  contribution  containing  two  or  more  of  the  kj.  Those  6-functions 
which  contain  only  two  elements  must  be  resolved  explicitly  since  they  have  the 
effect  of  eliminating  part  of  the  coordinate  dependence.  Those  6-function  factors 
containing  three  or  more  elements  need  not  be  resolved  explicitly,  although  they 
can  have  an  important  effect  on  the  behavior  of  the  resonant  denominators  as  I  wrill 
describe  shortly. 


IV.  LOWEST  ORDER  LIE  GENERATOR  AND  RESONANT 

DENOMINATORS 

The  goal  of  Hamiltonian  perturbation  theory  is  to  make  a  series  of  canonical 
transformations  w’hich  eliminate  the  dependence  of  the  Hamiltonian  on  the  canonical 
coordinates  through  any  given  order.  Through  that  order,  the  transformed  action- 
angle  variables  evolve  linearly  in  time, 

j(n)  = 

fl(n)  =  jW  +  n(n)fj 

just  as  the  original  variables  did  in  the  unperturbed  problem.  Here  the  superscript 
n  indicates  the  order  of  the  transformation.  The  effect  of  these  transformations  is 
shown  schematically  in  Fig.  4.  Before  the  action-angle  transformation,  the  original 
coordinates  u  evolve  in  a  complicated  way,  shown  as  the  dashed  line  to  the  left. 
However,  after  the  action-angle  transformation,  the  perturbed  system  still  evolves 
in  a  complicated  way.  To  obtain  variables  which  evolve  linearly  through  order  n,  we 
make  further  transformations  using  Hamiltonian  perturbation  theory.  The  evolution 
of  these  variables  is  shown  schematically  as  the  right-hand  branch  of  Fig.  4.  The 
three-sided  path  including  this  branch  has  through  order  n  the  same  property  that 
the  original  path  of  Fig.  1  has  for  the  unperturbed  system;  it  allows  us  to  “win”  over 
straightforward  time  integration  when  the  time  interval  becomes  sufficiently  long. 
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FIGURE  4.  Schematic  illustration  of  the  way  in  which  Hamiltonian  perturbation 

theory  can  be  used  to  solve  perturbed  equations.  This  figure  should  be  compared  with 

Fig.  1. 

There  is,  however,  a  price  to  pay.  These  transformations  generally  diverge  as 
one  continues  them  to  arbitrarily  high  order  due  to  resonant  or  small  denominators. 
The  small  denominators  which  appear  in  the  theory  equal  zero  in  some  cases  on  the 
real  fc-axis.  To  avoid  this  difficulty,  I  must  extend  integrals  over  k  into  the  upper 
half  Bargmann  strip.  To  ensure  that  this  extension  is  possible,  we  demand  that 
|u(x)|  — ♦  0  as  x  — ♦  ±oo  faster  than  some  exponential  which  implies  that  r(fc)  is 
analytic  in  some  strip  surrounding  the  real  fc-axis.  To  ensure  that  all  our  integrals 
exist  we  impose  the  complementary  constraint  that  u(x)  be  analytic  inside  some 
strip  around  the  real  x-axis.  Hence,  |r(&)|  decreases  faster  than  some  exponential 
as  k  — *  ±oo.  If  these  conditions  hold  at  any  point  in  time,  they  hold  for  all  times. 

One  of  the  beauties  of  the  Hamiltonian  approach  is  that  it  allows  one  to  elimi¬ 
nate  secuiarities  in  a  simple,  natural  way.  At  any  order  n,  we  divide  the  Hamiltonian 
J/(n)  into  two  pieces 

#(n>  =  H(n)  +  Hln>,  (43) 

where  the  former  is  coordinate-independent  and  the  latter  is  coordinate-dependent. 
We  then  eliminate  to  obtain  H  ^n+1)  which  has  a  renormalized  frequency 
to  which  H contributes.  At  lowest  order,  for  the  examples  which  we  are  consid¬ 
ering,  this  division  is  trivial.  When  p  =  2,  I  find  II j  =  H i  and  II\  =0.  As  H\  —  0, 
there  is  nothing  to  eliminate  and  no  need  to  transform  the  Hamiltonian.  When 
p  =  3,  4,  or  5,  I  find  H\  =  h0  and  II\  =  hj  -4-  hj  through  second  order  in  powers  of 


The  Lie  approach  to  Hamiltonian  perturbation  theory  which  I  am  using  is  based 
on  two  theoremsi13,14).  I  let  F[u]tG[u],  and  H[«]  be  arbitrary  functionals  of  I 
also  define  the  Lie  operator  :F:  corresponding  to  F[u]  as!17i 

•-F'-G=[F,G),  (44) 

where  [F,  G]  indicates  the  Poisson  bracket  of  F  and  G.  The  two  theorems  are: 
l)  The  transformation 


is  symplcctic 
2)  The  relation 

holds. 


u  =  exp(:  F:  )u  =  I(:  F:  )’u 

*=o  *’ 


exp(-:  F:  )i7[exp(:  F:  )u]  =  ff(u) 


(45) 


(46) 


At  lowest  order^our  task  is  to  find  a  functional  such  that  =  exp(-:  F:  )H 
no  longer  includes  H\.  Then,  from  the  second  theorem,  it  follows  that 


R{1)  [P(1)  (*),  ?(1)  (*).  pL1),  9i0l  =  H\p[k\  ,(fc),  pa,  9a], 

while  from  the  first  theorem 

P{l){k)  =  exp(e:  Fx:  )p{k),  qW(k)  =  exp(£:  F,:  )9(jfc), 

pL1}  =exp(e:Fx:)p«,  gL0  =  exp(c:  F,:  )7o, 


(47) 


(48) 


is  a  symplectic  transformation  and  is  just  the  transformation  we  want!  The  proce¬ 
dure  is  then  continued  to  arbitrarily  high  order.  Explicitly,  we  find  through  second 
order  in  c 


cxp(— £:  Fj:  )/T  =  Hq  +  <.H\  +«£Ti  —  «(Fj,  Ho] 

-  e2(Fi,^1)  -  €2[F,,  Hx\  +  |c2[Fi,[Fi,  JTo]].  (49) 


To  eliminate  H j,  we  must  set 
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»'l*t 
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In  other  words  Fi  may  be  determined  from  H x  by  integration  of  the  unperturbed 
orbits.  Explicitly,  I  find 

J  -  M.1)  =  "  (51) 


The  zeroes  in  the  small  denominators 


D  =  +  fciKa)>  (52) 

3 

may  be  avoided  by  integrating  around  them  in  the  complex  fc-plane  as  needed. 

For  the  cases  of  interest  here,  I  find,  expanding  Fj  in  powers  of  r(k),  that 
F\  =  fi  +  f2,  where  fi  and  f2  may  be  written 

fi  =  a~  l  ^r(k)exp{ikqa)k^~^-P<~p'>(k,Ka)csch(kn/Ka),  (53) 
O  J  —oo  ^  K  "+■  t^er 


r  dkx  r°°  dk2  , 


exp[*(*i  +  fc2)ga) 


{ki  +  tKa)2(k2  +  tK.a)2{(ki  +  fc2)2  -  3 kxk2  +  *£] 
Q<Lp){kltk2,Ka)R(‘p^(ki,k2,K,a)csch[ir[ki  +  k2)/t ca].  (54) 

It  is  not  difficult  to  show  that  the  ^-integrals  in  the  Eqs.  (53)  and  (54)  are  well- 
defined  when  both  kx  and  k2  are  in  the  upper  half  Bargmann  strip.  More  generally, 
if  we  consider  the  solution  to  the  expression  D  =  0,  I  find  that  as  long  as  at  least  two 
of  the  kj  are  not  tied  together  by  a  single  Ffuntion  factor  and  I  assume  that  all  the 
kj  except  one  which  I  designate  ki ,  are  arbitrarily  close  to  being  purely  real,  then 
D  =  0  is  possible  only  if  Im(ki)  =  0  or  Im(ki)  >  Ka.  By  choosing  Im(ki)  =  Ka/ 2, 
it  is  possible  to  bound  D  away  from  zero.  If  all  the  kj  are  tied  together  by  a  6 - 
function  factor  then  it  is  no  longer  possible  to  bound  D  away  from  zero,  although  I 
can  always  avoid  having  it  equal  zero  by  an  appropriate  choice  of  the  ^-integration 
contour.  As  a  consequence  of  these  latter  terms,  the  perturbation  theory  is  expected 
to  ultimately  diverge,  although  it  is  finite  order-by-order.  Physically,  these  terms 
correspond  to  a  radiation  component  which  travels  with  the  solitary  wave  and  only 


$ 
1 


slowly  disappears  as  t  — *  -f-oo.  More  details  on  the  resonant  denominators  may  be 
found  in  reference  11. 


V.  CALCULATION  OF  THE  HIGHER  ORDER  HAMILTONIAN 

Having  determined  Fi ,  I  may  now  calculate  the  transformed  Hamiltonian. 
From  Eqs.  (49)  and  (50),  it  follows  that 

=exp(-t:Fl:)H  =  H0  +  <H1  -e7[FuHi]-  (55) 

Noting  that 

gMjOl 

3p(k)  ik  jr(fc)[  ’  11 

I  find  that  in  order  to  keep  terms  through  order  c2  in  the  equations  of  motion,  where 
I  assume  that  |r(fc)|  is  of  order  c,  I  must  keep  terms  in  the  perturbed  Hamiltonian 
of  order  c2|r(fc)|  and  e|r(fc)j2  as  well  as  terms  of  order  e2  and  «|r(fc)|. 

The  calculation  of  H for  the  examples  which  I  am  considering  here  is  straight¬ 
forward,  albeit  somewhat  lengthy.  I  will  concentrate  here  on  calculating  in  detail 
the  term  which  contributes  to  at  order  c2  in  the  case  p  —  3  and  simply  record 
the  full  results.  The  term  in  Eq.  (55)  on  which  we  concentrate  is  [fi,  hi]  which  is 
part  of  [F’1,Hrx].  Only  the  continuous  portion  of  this  Poisson  bracket  contributes 
since  the  soliton  portion  yields  a  term  of  order  e2[r(A:)]2.  We  first  find  that  when 
p  =  3 

dfl  7Tl-)r(k)|2  ,  ,  k  —  t/Cor  ^ 

am  =  "  3'irWi"  +  csch (’*/'c“) 

-  |  csch(jrfc/Ka).  (57) 

and 

=  yM*)l  «P  [-«>(*)  +  ikqa]kj^¥Zcsch(rk/Ka,) 

~  Tlr(fc)l  exPl*?(k)  -  <kqa]kk-+  \Ka  csch(n-k/«0),  (58) 

w  K  —  1/Cqi 

where  k  is  real  and  I  have  used  the  relations  |r(-k)|  =  |r(k)|,  q{-k)  =  —  ^(k).  Similar 
results  can  be  obtained  for  dhj/d p(k)  and  <9h \/dq[k).  The  operators  d/dq[k)  and 
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d/dq{k)  are  anti-symmetric  in  fc;  hence,  the  ^.--integrals  can  always  be  extended  from 
the  half  interval  [0,oo)  to  the  full  interval  (-00,00)  and  from  there  into  the  upper 

half  Bargmann  strip.  In  the  case  considered  here  I  find  through  the  order  to  which 
I  am  working, 

[fj.hj]  =  r dk( — -1. ahi  - df 1  dH 1  \ 

Jo  dp(/c)  dp(k)  dq[k) ) 

128rr2  f°°dkr 

= - 9-  l  ^  [1  "  K*)|2]*2(*2  +  kI)  csch 2(nk/Ka) 

128rr2  r°°  dk  „  , 

~  9  y_oo  2 7rk  ^  +  «a)csch2(7rA://cc,) 


128  , 
- 

45  “ 


In  general,  I  may  write 

I  now  find 

where 

o(=)  -  -12! 


H^  —  Hq  4-  eHi  -|- t2H2  4-  e2 H2. 
H2  =  a  Mk4J-7, 
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exp(:kgQ)fc2/cp’ 
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{k2)  exp(i7 

"J 

f 

—  00 

2n  j 

L27' 

525,525 


P ^  {k,  Ka)  csch{nk/Ka) 

f  \ 


^(p)(fci,fca,0  [7 - ^ ^  +  *2)' 

l(*i  +  k2)2  -  Zkik2  4-  kI  (^i+/c2) 

csch(7rfcl/KQ)  csch[n-(fci  -f-  ^2) / «<»)].  (62) 

The  quantities  P(p)  and  are  defined  in  Eqs.  (36)  and  (40)  respectively.  The 
factors  (3  and  equal 


\* 


and  the  Q  1  equal 


=  [(fcj  +  k2 )  *  +  +  4*a), 

Q(5)  =  [(Jfci  +  *2)*  +  KlWik,  +  As)2  +  +  4IC*  )(fc?  +  9kI).  (64) 


Given  the  explicit  form  for  E^l\  we  may  now  go  on  to  calculate  F2  and  H ^ 
We  find  explicitly 


F2  =  - 


f3{p)n  r0° 


J  ^~r(k)exP(ik^)kt 


2t>— 2 


Sy(l>) 


°  (Jfc  +  l#Ca)2 

tt  r°°  dkx  [°°  dk2  „  N  %  Q'y,u 

^ r(M  eM'k^]kA^r- 


P ^  ( k ,  Ka)  csch(?rA:/A:a) 


-OO 

■  oo 


R(p)(kuk2,Ka) 


Q(p)(kuk2,Ka) 

2)(/c2  +  i(Ca)2 

(*i+*2) 


{ki  +  k2)2  -  Zk2k2  +  *1  (A:?  + /c2)J  ’ 


(65) 


and 

HW  =  Ho  +  eHi  +e2H2.  (66) 

Through  the  order  to  which  we  are  working  the  Hamiltonian  depends  only  on  the 
canonical  momenta.  One  can  directly  verify  that  all  the  Ar-integrals  in  H2  and  F2 
are  well-defined  when  carried  out  in  the  upper  half  Bargmann  strip. 


VI.  CALCULATION  OF  THE  FIRST  ORDER  POTENTIAL 

Having  determined  F\  and  F2,  we  can  in  principle,  calculate  the  second  order 
potential  through  the  formula 

u<2>  =  exp(-c2:  F2: )  exp(— t:  F\:  )u;  (67) 

however,  I  restrict  myself  now  to  calculating  =  exp(-c:Fi:)u  in  order  to  keep 
the  algebra  within  reasonable  bounds.  Having  determined  u^l\  I  can  check  the 
Hamiltonian  approach  by  finding  the  first  order  solitary  wave  solution  and  compar¬ 
ing  the  results  to  what  is  obtained  using  simpler  methods  which  do  not  apply  to 
arbitrary  initial  conditions.  Such  a  check  has  already  been  carried  out  for  other 


simple  examples!10!.  Calculating  when  p  =  3  and  setting  r^^[k)  =  0,  I  obtain 
for  the  solitary  wave  solution 


1 1.  =  -  2/c2  sech2(/ca£)  -  -<k2  |sech2(/c0£) 
-  2(1  +  2/cQ£)  sech2(/ca{)  tanh(/cQf)j , 


(68) 


where  I  have  left  out  the  superscript  1  which  should  be  on  Ka  and  £.  I  note  that 
the  result  is  non-uniform  in  £  although  it  does  fall  off  faster  than  some  exponential 
as  |£|  — »  ±oo.  From  the  Hamiltonian,  I  find 

16 


=  Kaga/2  =  -4/c3  -  yck°' 


(69) 


Combining  Eqs.  (68)  and  (69),  I  find  that  through  the  order  to  which  I  am  working 


u,  =  — 2/c2  (l  +  -f)  sech2 
3 

=  -2/c2  (1  +■  ^e)  sech2 


2  w  « 

«-(i  +  30e+  3 

Ka(l  +  -«)&  -  4/C®  (1  +  y)(l  -I-  y)t  +  - 


where  £o  is  a  constant  of  integration.  Letting  k  =  /ca(l  4-  2e/3),  we  conclude 

u,  =  —2k2  (1  —  i )  sech2  ^k£o  —  4k3*  +  ^  j  , 

which  is  the  same  as  the  exact  solution 

2/c2 


u.  =  - 


1  +  t 


sech" 


-  4k3*  +  |  , 


(70) 


(71) 


(72) 


through  the  order  to  which  we  are  working. 


I  have  obtained  similar  results  for  the  cases  p  =  4  and  p  =  5.  In  the  former  case 
I  compared  the  results  of  my  theory  to  what  is  obtained  from  the  exact  solution. 
In  the  latter  case,  no  exact  solution  exists,  and  I  compared  the  results  with  what 
is  obtained  from  the  expansion  procedure  of  Kodama  and  Taniuti!20!.  I  have  also 
explicitly  verified  that  all  the  fc-integrals  which  appear  in  u^2)  are  finite,  although  I 
have  not  carried  them  out  in  detail. 


VII.  CONCLUSIONS  AND  ACKNOWLEDGMENTS 
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ABSTRACT 

Equations  are  derived  which  govern  wave  propagation  in  a  birefringent  Kerr 
medium.  Painleve  analysis  indicates  that  these  equations  are  integrable  when 
the  two  polarizations  are  uncoupled  or  when  the  Kerr  coefficient  for  each  po¬ 
larization  depends  on  the  total  intensity.  In  the  latter  case,  the  equation’s 
integrability  was  first  proved  by  Manakov  who  found  single  soliton  solutions. 
Here,  the  single  soliton  solutions  that  he  found  are  extended. 


I.  INTRODUCTION 


Many  optical  media  are  birefringent,  and,  as  a  consequence  of  this  birefringence, 
have  two  normal  modes  with  preferred  axes  of  propagation.  If  the  modes  are  linearly 
polarized,  then  we  may  designate  the  axes  e*  and  e„  which  correspond  to  two  orthogonal, 
real  directions;  however,  if  the  modes  are  circularly  polarized,  then  we  designate  the  axes 
er  =  (er  -  iey)/V2  and  e/  =  (er  +  iev)/V2  which  are  no  longer  real. 


If  the  nonlinear  dielectric  medium  can  be  considered  isotropic,  then  the  lowest  order 
nonlinear  interaction  which  will  appear  is  the  cubic  or  Kerr  nonlinearity  [1-4].  In  an 
intermediate  range  of  birefringence,  to  be  defined  more  precisely  later  in  this  paper,  we 
then  find 


tu*  +  +  (|u|2  +  flM2)u  =  o, 

+  (5|u|2  +  |v|2)  v  =  0, 


(1) 


where  u  and  v  represent  the  amplitude  envelopes  of  two  normal  modes,  £  and  s  are 
normalized  distance  along  the  medium,  and  B  is  a  parameter  whose  value  depends 
on  the  details  of  the  nonlinear  dielectric  response,  although  it  is  always  0(1).  The 
most  important  single  case  is  when  the  nonlinear  dielectric  response  can  be  considered 
instantaneous,  as  is  the  case  is  optical  fibers  [5].  One  then  finds  B  =  2/3. 


We  note  that  while  the  coefficient  of  birefringence  does  not  appear  explicitly  in 
Eq.  (1),  the  transformation 

u'  =  ucostf  +  usin0, 

(2) 

v'  =  v  cos  6  -  u  sin  9, 

does  not  leave  Eq.  (1)  invariant  unless  B  =  1.  This  invariance  is  a  fundamental  symmetry 
requirement  if  the  normal  modes  are  linearly  polarized.  Hence,  the  birefringence  serves 
to  break  the  azimuthal  symmetry  in  this  case. 

Recently,  Eq.  (1)  has  beens  subjected  to  intensive  study  due  to  the  interest  in  optical 
fiber  applications  [6-9].  Unfortunately,  these  equations  appear  to  be  non-integrable  when 
B  =  2/3.  Still,  as  Manakov  showed  some  time  ago,  Eq.  (1)  is  integrable  when  B  —  1. 
Eq.  (1)  is  also  integrable  when  B  =  0  since  Eq.  (1)  reduces  to  two  uncoupled  nonlinear 
Schrodinger  equations.  We  have  carried  out  a  Painleve  analysis  which  indicates  that 
these  are  the  only  integrable  cases. 

The  case  B  —  1,  aside  from  its  intrinsic  interest,  is  a  useful  starting  point  for 
studying  more  general  B-values.  In  his  paper,  Manakov  [10]  showed  how  to  solve  the 
initial  value  problem  and  extracted  those  single  soliton  solutions  where  u  and  v  are  both 
proportional  to  sech( as).  We  find  more  general  single  soliton  solutions  by  a  direct  search 
for  stationary  solutions  of  Eq.  (1).  These  solutions  can  be  obtained  by  using  a  procedure 
first  described  by  Darboux  [11]  and  based  on  the  original  work  of  Bertrand  [12]  and 
Liouville  [13]. 

In  Sec.  II  of  this  paper,  we  give  a  brief  derivation  of  Eq.  (1).  Our  goal  here  is 
not  rigor,  but  rather  to  elucidate  what  we  consider  to  be  the  most  important  physical 
points.  In  Sec.  Ill,  we  outline  the  Painleve  analysis  and  show  how  to  obtain  single  soliton 
solutions  of  Eq.  (1).  The  conclusions  are  in  Sec.  IV. 


II.  THE  BASIC  EQUATION 

Recently,  there  have  been  several  derivations  of  the  nonlinear  Schrodinger  equation 
for  applications  to  optical  fibers  and  other  optical  systems.  (See,  e.g.,  [3,  4,  14-16]).  We 
shall  present  a  simple  derivation  which  can  easily  be  made  more  rigorous  by  following  the 
approach  of  [16].  We  consider  one-dimensional  propagation  in  a  homogeneous  medium 
and  ignore  transverse  effects. 

In  the  slowly  varying  envelope  approximation,  we  may  assume  that  the  E-field  has 
the  form 


where  E  is  the  read  field,  E+  is  the  contribution  to  E  near  the  carrier  frequency  u  =  u/0, 
and  E-  is  the  contribution  to  E  near  u  =  —  u>o*  The  Fourier  transform  of  E  is  zero 
outside  a  small  range  of  frequencies  surrounding  u>  =  u>o  and  u>  =  — u>0.  Since  E (z,f)  is 
real,  it  immediately  follows  that  E(z,w),  the  Fourier  transform  of  E(z,t),  satisfies  the 
relation  E(z, -u>)  =  E*(z,u;)  from  which  we  conclude  E“(z,  -u)  =  E  +*(z,u).  For  each 
normal  mode  of  the  medium,  we  may  now  write 


Fl{z't)  =  h  f 

p2  f  X3(t-?)E2(z,t')dt', 


where  Pi  and  P2  indicate  the  linear  polarizabilities  in  each  component  of  the  wave. 
Writing  the  Fourier  transform 


Mu)  -  ^  j  A{t)exp(iut)dt, 

(5) 

Pi.i(*,w)  =  Xi.2(z,w)Ei)2(z,w), 

(6) 

or,  separating  out  the  4-  and  -  contributions  [2], 

Pi,2(*.«)  =  P* a(«,w)ei^(w)  +  P^(z,  w)e;i2(w), 

(7) 

Ei,  2(2,  w)  =  ££,(*,  w)e  i,2(w)  +  Efi2(z,w)e;>2(w), 
where  the  unit  vectors  satisfy  the  relations 


ei  •  ej  =  e2  •  ej  =  1,  ei  •  ej  =  e2  •  ej  =  0. 


(8) 


We  concentrate  on  Pf.  Since  the  relation  P{~  =  P+*  holds,  knowledge  of  P1+  is  sufficient 
to  determine  P{~  ;  Pf  can  then  be  determined  by  analogy  with  P+ .  It  is  useful  to  consider 
the  slowly  varying  envelopes  of  the  polarizability  and  the  field, 


p(z,t )  =  Pf(z,t)exp(-ik0z  +  iu0t), 
U(z,t)  =  Et(z,t)exp(-ik0z  +  iu>0t), 


0) 


where  we  will  specify  fco  shortly.  From  Eqs.  (8)  and  (9),  we  find 


p(z,t)  =  f  x(u> +  u0)U(z,u)exp(-iut)du. 

J  —  OO 


(10) 


The  quantity  U (*,<*;)  is  peaked  in  a  small  region  surrounding  u  =  0,  and  we  assume  that 
X  is  slowly  varying  throughout  this  region.  Thus,  we  may  write 

Xi(w  +  u;o)  ~  xi(^)  +  xi(wo)w+  ^xi'^oV2.  (11) 

where  Xj(wo)  and  x"(u>o)  are  the  first  and  second  derivatives  of  xi(u>  +  u>o)  evaluated  at 
ui  =  0,  leading  to  the  result 


-  /  \  -if  \&u  1  -iif  sd2u 

P  =  X i(wd)u  +  *Xi(wo)^-  -  (12) 

We  now  recall 

D\{z,u)  =  [l  +  Xi(w)]£i(*,w)  =  ii(v)Ei(z,u),  (13) 

where  €i(w)  is  the  dielectric  response.  We  further  recall,  from  Maxwell’s  equations, 

u>2  - 

V  Ei  +  -x-Di  =  0,  (14) 

c 


1 1/2 


and  we  define 

*(uO  =  |[e,M]1'*,  (15) 

corresponding  to  positive  propagation.  Letting  ko  =  k(u>0),  we  now  find  from  Eqs.  (9, 
13-15), 

an  an  ^  a*n 

(16) 


:«£  .  ik.  w  .  i *»££  .  0 

dz  +  **  at  2*"  at‘  ~ (1, 


where  k’0  and  ktf  are  the  first  and  second  derivatives  of  k(u),  evaluated  at  u  =  u0 
Similarly,  we  find 

dv  i,„d2v 


where  V  is  the  envelope  of  E$ , 


*0*0  =  |  [«2(w)] 111  =  ^  [l  +  xj(w)] 


1 1/2  _  W 


1/2 


(17) 


(18) 


and  Iq,  1'0,  and  /(,'  are  defined  by  analogy  with  ko,  k'Q,  and  k^. 

We  now  suppposed  that  the  polarizability  has  a  cubic  component  and  that  this  cubic 
component  is  istropic.  When  both  the  anisotropy  and  nonlinearity  are  weak,  the  case  of 
greatest  practical  interest,  then  anisotropy  can  be  ignored  in  the  nonlinear  contribution 
at  lowest  order  since  the  anisotropy  is  formally  of  higher  order.  The  polarizability  must 
have  the  form 


p(*,0 


(2*); 


(  dti  f  dt2  f  dt3  x(t  ~  -  t2\t  -  h) 

J  —  oo  J- oo  J — oo 


[E(ar,ti).E(*,ta)]E(*,<3). 


(19) 


Equation  (19)  is  the  only  cubic  combination  of  Ex  and  Ey  which  is  invariant  under 
rotations  and  mirror  reflections.  From  the  form  of  Eq.  (19),  it  follows  that  the  dielec¬ 
tric  function  x(t\,t2\t3)  is  invariant  under  the  interchange  rj  «-*  r2  but  not  under  the 
interchanges  tx  r3  or  r2  <-*73.  We  thus  obtain 

P+(2’’t)=7Tl 3/  dti  f  dt*  [ 

\^)  J —  OO  j  —  00  J—  00 

{[2E+(z,fx)-E-(z,t2)]E+(z,f3)  (20) 

+  [E+(z,tx).E+(z,*2)]E-(z,f3)}. 

and  a  similar  result  for  P“.  The  decomposition  of  Eq.  (20)  depends  on  the  nature  of 
the  normal  modes.  For  linearly  polarized  waves, 

pi+(*’*)  *  75^3  I  dh  !  dU  I  dt3X(t-ti,t-t2;t-t3) 

)  J -OO  J- OO  J- OO 

{2[E*(z,t1)Ei(z,t2)  +  Et(z,h)E2(z,t2)]Et(z,t3)  (21) 

+  [Ej*'(z,tx)E^(z,t2)  +  E^(z,ti)E^(z,t2)]Ef(z,t3)}, 
with  a  similar  result  for  ,  while  for  circularly  polarized  waves 

Pl+(;M)=(2 £)?/.  dtlJ_  dt2J  dt^x(t-h,t-t2;t-t3) 

{2  [E1+(z,ti)£r(z,t1)  +  E2+(z,t1)E2-(z,t2)]E1+(z,t3)  (22) 

+  2[Et(z,h)Et(z,t2)]E;(z,t3)}. 

Making  the  slowly  varying  envelope  approximation,  just  as  in  the  linear  case,  and  keeping 
only  the  lowest  order  terms  in  the  expansion  of  x,  we  find  in  the  case  of  linearly  polarized 
waves  that 

p(z,t)  =  a{2(\U\2  +  \V\2)}U 

(23) 

+  0{U2  +  V2exp[-2t(fc0  -  l0)z]}Um, 

where  a  =  x(wo>  — ^oi^o)  and  0  =  x(wo,wo;  — wo).  For  circularly  polarized  modes,  we 
obtain 

p(z,t)  =  a{2(|Cf|2  +  \V\2)}U  +  20\V\2U.  (24) 

When  the  medium  has  an  instantaneous  response,  x(u>o, wo)  =  x(wo,wo;  -^o)  = 
x(0,0;0),  so  that  a  =  0. 

In  many  cases  of  practical  interest,  the  birefringent  beat  length  is  short  compared  to 
the  length  scale  of  the  pulse  variation.  Then,  the  term  in  Eq.  (23)  is  rapidly  oscillating 


m 


& 


1 


and  can  be  dropped.  We  now  combine  the  effects  of  the  linear  and  nonlinear  polariz¬ 
ability.  After  transforming  to  the  intermediate  group  velocity  frame  and  appropriate 
normalization  [8,  9],  we  find  for  linearly  polarized  waves, 

*'««  +  iSu,  +  +  (|u|2  +  5|u|2)u  =  0, 

l  (25) 

~  itv,  +  +  (5M2  +  lul2)u  =  0, 

in  the  anomalous  dispersion  regime  where  B  =  2a/(2 a  +  (3).  For  circularly  polarized 
waves,  Eq.  (25)  still  holds  with  B  =  (a  +  /3)/a,  and  no  assumption  concerning  the 
birefringence  strength  is  required.  The  first  derivatives  in  s  can  be  removed  by  the 
transformation 

u  =  uexp[i£(l  -  -)(  -  its  , 

6  (26) 
v  =  rexp[-»'tf(l  +  -){  +  t'foj . 

Removing  the  bars  yields  Eq.  (1).  We  see  that  the  Manakov  equation  results  when  (3  =  0. 

It  is  worthy  of  note  that  when  the  birefringence  is  so  weak  that  the  exponential  term 
in  Eq.  (1)  can  be  set  equal  to  1,  we  find 

*u«  +  +  (M2  +  M2)u  +  (1  -  2?)(ur’  -  vu’)v  =  0, 

1  (2?) 
+  -v„  +  (|u|2  +  M2)v-  (1  -  B)(uvm  -  vu‘)v  =  0. 

The  final  terms  in  Eq.  (27)  lead  to  ellipse  rotation  [1]. 


II.  INTEGRABILITY  AND  SOLITONS 

We  now  look  for  stationary  solutions  of  Eq.  (1)  which  have  the  form 

u({,s)  =  exp(ifti£)/(s), 

(28) 

i>(£,a)  =  exp(in2()ff(s), 

where  /  and  g  are  real  functions  and  fii  and  fi2  are  two  real  parameters.  In  the  case 
B  =  0  where  the  single  soliton  solutions  are  well-known,  we  find  that  this  ansatz  yields 
the  general  solution  to  within  a  Galilean  transformation.  Substitution  of  Eq.  (28)  into 
Eq.  (1)  yields 

/„-2fti/  +  2(/2  +  £p2)/  =  0, 

(29) 

9„  -  2 Sl2g  +  2 (Bf2  +  g2)g  =  0. 


In  the  remainder  of  this  section,  we  study  Eq.  (29).  We  apply  Painleve  analysis  [17]  to 
Eq.  (29)  which  indicates  that  it  is  only  integrable  when  5  =  0  or  5  =  1.  Then,  setting 
5  =  1,  we  determine  the  homoclinic  orbits  which  correspond  to  single  soliton  solutions. 


L mm 


A.  Painleve  Analysis 

Following  the  procedure  of  Ablowitz,  et  al.  [17],  we  search  for  a  Laurent  series 
solution  of  Eq.  (29), 

OO 

f  =  ^2a3(s-s0)^, 

3= 0 

oo  (30) 

3=0 

valid  in  the  neighborhood  of  any  singular  point  s  =  so.  The  only  choice  of  p  and  q  which 
allows  us  to  balance  leading  terms  in  Eq.  (29)  while  leading  to  four  arbitrary  coefficients 
in  Eq.  (30)  is  p  as  q  =  -1.  We  then  find 

=  =  <31> 

We  next  determine  the  values  of  j  at  which  arbitrary  coefficients  in  the  Laurent 
expansion  enter.  Letting  j  =  r  designate  these  resonant  values,  we  find  that  r  satisfies 
the  equations, 

[(r-i)(r-2)-_lT_J£T]ar  =  ±4_^s„ 

(32) 

f(r  -  l)(r  -  2)  -  — ^ - —}br  =  ±4— — ar, 

L  5  +  1  5  +  lJ  5  +  1 

where  have  made  use  of  Eq.  (31)  to  eliminate  ao  and  bo.  We  now  find 

('-1^-V-bTT-T7-itJ7T  =  0'  (33) 

from  which,  taking  the  -  and  +  signs  in  turn,  we  conclude  that  Eq.  (32)  has  the  roots 


3  1  /  5  -  lV 


The  only  values  of  5  which  yield  real,  integral  roots  are  5  =  0,  in  which  case  r  =  -1 
and  r  =  4  are  both  double  roots,  or  5  =  1,  in  which  case  r  =  -1,0,3,  and  4.  Hence, 
the  only  values  of  5  for  which  Eq.  (29)  can  have  the  Painleve  property  are  5  =  0  and 


5  =  1. 
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To  complete  the  Painleve  analysis,  we  must  substitute  Eq.  (30)  into  Eq.  (29)  and 
show  through  j  =  4  that  no  logarithmic  singularities  develop  when  5  =  0  and  5  =  1. 
We  have  done  so,  but  do  not  describe  the  algebraic  details. 


B.  Soliton  Solutions  When  5  =  1 
When  5  =  1,  Eq.  (29)  is  generated  by  the  Hamiltonian 

«  -  +  i  [(/’  +  ,*)*  -  2!J,/!  -  2 !W1 ,  (35) 

where  F  =  df/ds  and  G  =  dg/ds  are,  respectively,  the  momenta  canonical  to  /  and  g. 
The  independent  variable  is  s.  A  second,  independent  constant  of  the  motion  is 

C  =  \(aF  -  fG)2  +  (lit  -  n t)[F2  -  2 ft,/2  +  {f2  +  g2)f).  (36) 

Equation  (36)  implies  the  integrability  of  Eq.  (29)  when  5  =  1.  When  fti  >  0  and 
fl2  >  0,  homoclinic  orbits  exist  which  correspond  to  solitons.  If  flj  =  fl2  =  ft,  then  the 
solution 

f(s)  =  (2ft)1/2  cosasech^ft)1/2^], 

,  (37) 

g(a)  =  (2ft)1/2  sinasech^ft)1/2^], 

corresponds  to  the  solitons  found  by  Manakov  [10].  If  fti  ^  ft2,  then  the  homoclinic 
orbits  are  considerably  more  complicated. 

Some  time  ago,  Darboux  [11]  shown  that  a  two  degree-of- freedom  Hamiltonian  sys¬ 
tem  with  a  second  integral  quadratic  in  the  momenta  has  a  generic  form.  Once  this  form 
is  obtained  by  using  Bertrand’s  method  [12],  (see  also  [18])  the  equations  of  motion  can 
be  reduced  to  quadratures  using  a  procedure  due  to  Liouville.  To  reduce  our  equation 
to  this  form,  we  first  note  that  the  potential  contribution  to  H  is 

V(f,g)  =  i(/2  +  ff2)2  -  ft2(/2  +  g2)  -  (ftr  -  ft2)/2.  (38) 

We  next  define  new  variables  x  and  y  such  that 

x2  +  y2  =  f2  +  g2  +  7, 

(39) 

xI-y,  =  [(/,  +  s1  +  i)I-47/!],rt, 


where  7  =  2(fti  -  ft2).  The  potential  V(x,y)  now  has  the  appropriate  generic  form. 
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where 


X(a)  =  y(a)  =  A(a)  =  ^a2( a 2  -  2Qi)(a2  -  2^  -  2Q2). 


To  reduce  the  equations  of  motion  to  quadratures,  we  first  write  the  kinetic  contri¬ 
bution  to  H , 


T{F,G)  =  i(f  +  <J!)  =  i(*»  -  jr1)  ■ 


Defining  now, 


dx 

(i2  -7)1/2 


“d  5  =  /(w 


we  note  that  T  and  V  have  the  forms 


T  =  5(ci(*)  +  «i(®)](*2  +  ®J), 


di(x)  +  d2(y) 


ci(x)  +  c2(y) 


Defining  further  c  =  c i(x)  +  C2(y)  and  writing  the  Lagrangian 


d_  (  dT\  _8T_  _dV 
da  \dx,J  dx  dx  ’ 


we  obtain  after  some  algebra 


s<c’i')  ‘  “•  + »->  =  -2ei-fr 


From  the  Hamiltonian,  we  find 


+  y\)  =  * -  V, 


where  h  is  some  constant,  and,  after  some  more  algebra,  we  arrive  at  the  expression 


l-c2x]  =  hex  -dx+-n, 


where  71  is  a  constant  of  integration.  Carrying  out  a  similar  operation  for  y,,  we  finally 
conclude 

(hex  -  dx  +  Tx)X,2dx  =  ( hc2  -  d2  +  72)1/2dy,  (50) 


which  reduces  the  problem  to  quadratures. 


Closed  form  expressions  can  be  found  for  the  solitons  and  were  recently  reported 
by  Cristodoulides  and  Joseph  [19]  with  some  generalization  from  the  case  considered 
here.  We  do  not  reproduce  their  analytic  form  since  it  is  rather  complicated;  however, 
the  physical  structure  of  the  solution  is  not  difficult  to  determine.  When  fii  >  flj,  the 
/-component  is  sharper  and  the  ^-component  dominates  at  large  values  of  |s|.  The  self¬ 
similar  structure  retains  its  shape  through  a  complex  balance  of  the  contributions  of  the 
two  different  components. 

IV.  CONCLUSIONS 

In  this  paper,  we  have  shown  how  the  Kerr  effect  leads  to  the  coupled  nonlinear 
Schrodinger  equation  in  a  birefringent  medium.  Painleve  analysis  indicates  that  these 
equations  are  only  integrable  in  two  special  cases.  In  the  first  case,  the  two  polarizations 
are  uncoupled.  In  the  second  case,  the  nonlinar  contribution  of  the  two  polarizations  to 
the  Kerr  coefficient  of  each  polarization  is  identical.  This  latter  case  was  shown  to  be 
integrable  by  Manakov  who  found  special  single  soliton  solutions.  We  have  extended  his 
results  by  finding  a  more  general  class  of  single  soliton  solutions. 
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ABSTRACT 

A  theory  of  side  beam  replication  in  a  crossing-beam  geometry  is  reported.  It  is  shown  that  side  beam  replication 
is  not  expected  to  occur  when  the  Fresnel  number  of  the  aberrations  (F  S  A\  is  large,  while  it  is  expected  to 
occur  when  F SA  is  small,  in  accord  with  experiments.  An  analytic  threshold  is  derived  for  the  value  of  F\A  at 
which  side  beam  replication  no  longer  occurs,  and  this  threshold  agrees  well  with  the  experiments.  We  propose 
a  method  for  eliminating  side  beam  replication  at  low  values  of  F.\A. 


1.  INTRODUCTION 

The  theoretical  and  experimental  work  which  has  been  carried 
out  to  date  on  Raman  beam  cleanup  and  beam  combining  of  station¬ 
ary  waves  has  been  strongly  motivated  by  previous  work  on  phase 
conjugation,  mostly  based  on  Briliouin  scattering,  rather  than  Ra¬ 
man  scattering.1  2  In  both  cases,  four  wave  mixing  processes  are  in¬ 
volved  In  the  early  experiments  of  Goldhar  and  Murray3  counter- 
propagating  beams  were  considered  and  the  effect  of  a  finite  pump 
beam  correlation  length  was  determined.  They  show  that  a  Urge 
number  of  pump  beams  leads  to  averaging  and  a  smoother  Stokes 
output.  Shortly  thereafter.  Chang  and  Djeu4  carried  out  experiments 
in  a  co-propagating  beam  geometry.  They  found,  in  keeping  with  the 
theoretical  predictions  of  Bespalov,  et  alP  that  as  the  gain  rose,  the 
Stokes  beam  distortion  increased,  due  to  incomplete  intensity  averag¬ 
ing  along  the  length  of  the  amplifier  In  later  work,  Goldhar.  et  al .* 
showed  that  their  approach  could  be  made  more  efficient  by  using 
a  double-pass  amplifier,  and  Chang,  et  al.7  8  showed  that  far  better 
output  Stokes  quality  could  be  obtained  if  a  multi-beam  geometry 
with  the  central  pump  component  removed,  was  used.  More  recently, 
Reintjes.  et  al910  have  explored  in  considerable  detail  the  different 
parameter  regimes  which  occur  in  a  multi-beam  geometry  and  the 
behavior  observed  in  the  different  regimes. 

In  their  experiments.  Reintjes.  et  al.9  10  observed  that  the  effi¬ 
ciency  of  beam  cleanup  is  determined  in  large  measure  by  the  beam 
geometry  and  by  the  Fresnel  number  of  the  aberrations  FS  A  = 
C:A/ XL.  where  DA  is  the  transverse  scale  length  of  the  aberrations.  X 
is  the  pump  wavelength,  and  L  is  the  interaction  length.  In  a  collinear 
beam  geometry,  with  a  large  Fresnel  number  so  that  diffraction  can 
be  ignored,  the  same  portions  of  the  pump  beam  and  Stokes  beam 
continually  interact.  As  a  consequence,  no  intensity  averaging  can 
occur,  and  any  amplitude  structure  in  the  pump  will  print  through 
onto  the  Stokes,  although  no  phase  structure  prints  through.  As 
the  Fresnel  number  decreases,  intensity  averaging  begins  to  occur, 
reducing  the  deleterious  effect  of  amplitude  aberrations.  However, 
diffraction  of  phase  structure  into  amplitude  structure  now  occurs, 
so  that  some  printing  through  of  phase  aberrations  takes  place.  As 
the  Fresnel  number  decreases  yet  further,  the  intensity  averaging  im¬ 
proves  substantially,  but  it  is  always  incomplete 

If  we  consider  instead  a  multi  beam  geometrv  where  there  is  no 
on  axis  pump  beam,  shown  schematically  in  Fig  1.  then  intensity 
averaging  i'  .  onsiderablv  enhanced,  and  at  small  Fresnel  numbers 
th»  Stokes  beam  is  essentiallv  diff’action  limited  However,  when 


the  Fresnel  number  is  not  small,  side  beam  replication  can  occur. 
That  is  to  say.  new  Stokes  beams  can  be  created  which  propagate 
collinearly  with  the  off-axis  pump  beams. 

In  this  work,  we  theoretically  examine  the  conditions  under 
which  side  beam  replication  occurs.  This  replication  is  closely  analo¬ 
gous  to  Briliouin  phase  conjugation  due  to  four  wave  mixing,  and  we 
make  heavy  use  of  the  approach  which  was  first  developped  in  the¬ 
oretical  studies  of  this  effect. 1,3  Flusberg  and  Korff"  have  already 
noted  this  analogy,  and  they  have  made  excellent  use  of  it  it  in  their 
recent  study  of  Raman  amplification  in  a  collinear  beam  geometry.  In 
jhe  experiments  of  interest  to  us.  however,  this  analogy  is  incomplete. 
The  difference  between  fcp  and  k$,  the  pump  and  Stokes  wavenum¬ 
bers.  is  quite  large,  amounting  to  13%  of  ip;9  10  as  a  consequence, 
important  modifications  must  be  made  in  the  theory. 

Our  theory  leads  us  to  propose  a  novel  method  for  eliminat¬ 
ing  side  beam  replication  without  degrading  pump  beam  quality  by 
adjusting  the  phases  of  the  incoming  pump  beams. 


Figcre  1  A  schematic  illustration  of  the  crossing-beam  geome¬ 
try  is  shown  The  pump  beams  are  shown  as  solid  lines,  and  the 
Stokes  beam  is  shown  as  a  dashed  line  There  is  no  pump  beam 
propagating  collinearly  with  the  Stokes  beam  When  the  Stokes 
beam  emerges  from  the  interaction  region  showo  as  a  hatched 
box  it  is  amplified 
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2.  THEORETICAL  DEVELOPMENT 

The  basic  equations  which  govern  wave  evolution  in  a  Raman 
active  medium  are 

3El  '  d*EL  k, 

~  -  IklW  =  _‘i7'<J<3£s' 

9Es  .  ^fs 

--2Tsl^  =  -,KlQE‘-'  (1) 

fr +  rc?  =  -'«iE}el. 

where  £j.  and  £s  it*"  the  complex  envelopes  of  the  pump  and  Stokes 
waves.  Q  is  the  m  uenal  excitation.  and  *;  are  the  gain  coeffi¬ 
cients.  and  T  =  I/T2  is  the  damping  rate  of  the  material  excitation. 
Here,  we  consider  on.y  one  transverse  dimension  for  simplicity  of  pre¬ 
sentation  but  note  that  the  results  which  we  will  obtain  hold  without 
ci  - c  -  or  two  transverse  dimensions.  To  derive  Eq.  (1),  we  make  a 
slow,y  '  trying  envelope  approximation,  a  paraxi^.  save  approxima¬ 
tion.  A..d  assume  that  the  material  excitation  is  ....  >m  saturation. 

In  the  stationary  limit  •  Eq.  (1),  where  tim«  endent  effects 
can  be  neglected,  we  find 


Q  =  -isl¬ 


and.  as  a  consequence. 


dEL  _  »  d'-EL 

dz  2k i  dy- 


■‘f3x\Es\'EL. 
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It  now  follows  that 


dE ^  K,  dE1"  1  d'E[ 

d:  +  ki  dy  '2kL  dy} 


0L<;  I  O  C-s  _  9,  r-  ,2  r 

-dT-lTsW  rEi{  Es- 

where  g  =  2k\KjIT  .  .  .e  e  rper.  nents9  10  indicate  ’hat  the  system's 
Linear  behavior  i  i.e.  '•-•he  -or  w  (£s|  <  |£t|)  plays  a  crucial  role 
:n  determining  the  qcuity  of  the  emerging  Stokes  beam.  We  thus 
specialize  to  the  linear  limit  wv,  re  Eq.  nj  becomes 


Tt  -.  ,  —  v .  I  ; 

dz  2k  L  dy 

In  the  multi-beam  geometry  that  we  are  considering,  it  is  always 
’he  case  that  in  Fv-space.  the  Fourier  transform  space  correspond¬ 
ing  to  the  y-direction.  the  separation  between  the  beams  is  much 
lareer  than  the  bandwidth  of  each  individual  beam.  In  other  words. 
A  A"  >  I  Ah  where  (AA)„P  is  the  minimum  fcv-separation 
between  the  beams  and  (AA)b,4m  is  the  maximum  bandwidth  of  an 
individual  beam.  Given  this  condition,  it  is  useful  to  decompose  El 
and  E;  into  a  sum  of  contributions  from  each  beam  in  which  the 
central  wavenumber  K,  of  each  beam  is  explicitly  accounted  for. 

EL(y.z)  =  Y  z) expftA'.y ) exp( -iA',2 z/2*t ), 

'  .  (5) 
£51  y.  :|  =  ^  £'s"(  y.  r)exp(  iA',y  )exp(  -iA'fz/2k;). 

i 

Here.  I  refers  to  the  beam  number  The  quantities  £'t0  and  E^]  give 
the  envelopes  of  the  individual  beams;  these  envelopes  are  slowly 
varving  in  the  y-direction.  For  the  case  of  interest  to  us  here,  it  is 
appropriate  to  assume  that  Ai  =  / A|.  that  £‘t01  =  0.  and  that  £'s 
is  very  small  except  for  /  =  0  The  £'5"  for  l  ^  0  correspond  to  the 
side  beams,  and  it  is  their  growth  which  we  wish  to  determine 


dE';'  A',  dE\ s’  ■  a;£(;° 

dz  +  ks  dy  2 ks  dy 2 

=  |  Y.  E'l"'  E'l’  £5°'  exp  [if  A,  -  +  A.  -  A,)y]  (7| 

'n.n.j 

exp  .2 ir(A"  ■ A;  +  rsh°  ~  *7a‘ 

In  the  previous  sum.  we  only  keep  terms  for  which 

Am  -  A*  +  A„  —  Ai  =  0.  (81 

or  m  -  n  +  o  -  f  =  0.  in  order  to  satisfy  the  condition  that  £'n 
vary  slowly  compared  with  exp(iA'iy)  which  in  turn  comes  from  the 
condition  (AA')b,4m  <  (AA')„P. 

In  general,  the  explicit  variation  in  Eq.  (7)  can  lead  to  rapidly 
oscillating  terms;  these  terms  make  no  contribution  to  the  sum. 
Writing  the  e-folding  growth  length  as  (j(/t))“l,  where  ( IL )  is  the 
summed,  average  strength  of  the  pump  beams  in  the  interaction  re¬ 
gion.  our  condition  to  have  rapidly  oscillating  terms  is 

1  ^ 

—  (AA')^p  >  g(IL),  (9) 

a  condition  which  is  well-obeyed.  A  similar  condition  applies  in 
the  "  ^rv  of  Brillouin  four  wave  mixing19  or  Flusberg  and  Korff’s 
theor.  of  collinear  Raman  interactions,  although  (AA')„P  is  re¬ 
placed  by  the  total  bandwidth.  In  these  theories,  one  also  assumes 
r.at  a  oomph  mentarv  condition 

^IAA'),I,p<}(/t),  (10) 

holds,  where  r  =  (kc  -  ks)/ki •  As  a  consequence.  Ac  can  be  set 
equal  to  k$.  and  we  can  avoid  rapid  oscillations  when 

A'*  -  A-J  +  A'*  -  A?  -  0  -  (11) 

which,  combining  with  Eq.  (8).  implies  either  1)  A„  =  A',  and 
A'o  =  A’i  or  2)  Km  =  A  /  and  A'„  =  A',.  The  first  case  corresponds 
to  terms  in  the  equations  which  lead  to  intensity  amplification  of 
the  Stokes  wave;  the  second  case  corresponds  to  terms  which  le 
to  replication  of  the  pump  structure.  There  are  as  many  terms  of 
the  second  type  as  there  are  of  the  first:  hence.  Flusberg  and  Korff" 
conclude  that  the  portion  of  the  Stokes  beam  in  phase  with  the  pump 
grows  at  twice  the  rate  of  the  rest  of  the  Stokes  structure. 

In  our  experiments.  Eq.  (10)  does  not  hold  because  of  the  large 
difference  between  kj.  and  k$-  Instead,  we  find 

-f- ( A  A'  ).2.p  >g(fL)  (12) 


As  a  consequence,  rapid  oscillations  do  not  occur  when  either  1) 
Km  =  A,  and  A',  =  At.  just  as  before,  or  2)  Km  =  Kt  =  -A',  = 
-A  ,.  which  strongly  restricts  the  previous  second  case  The  second 
condition.  Eq.  113).  ensures  that  the  finite  bandwidth  of  the  £’,," 
does  not  lead  to  a  non  zero  contribution  from  one  of  the  terms  for 
which  Km  =  A’ 1  and  A,  =  A'p,  but  A‘^  ^  -  A,.  We  now  find  that 


Eq.  I T )  becomes 


dt?  A,  d£'n 


d: 


a-E1;'1 


k s  dy  2k s  dy1 


=  §£4"%. 


^  ^  '*  £'  “H*  £( -O 


(U) 


In  the  experiments  of  interest  to  us.  it  is  always  the  case  that 

2^!-^A')b.4m  <  ?(4)-  (15) 

We  may  thus  assume  that  over  one  growth  length  the  effect  of  diffrac¬ 
tion  can  be  ignored.  Letting  zi  =  z  and  yt  =  y-(A \/ks)z.  »e  obtain 


at 

dz( 


-IE**' 


(16) 


The  quantity  yt  measures  transverse  length  from  the  center  of  the  fth 
beam.  The  other  beams'  variation  in  2/  will  in  most  cases  be  more 
rapid  than  that  of  the  1th  beam. 


To  analyze  Eq.  ( 16).  we  first  consider  a  limiting  case  where  Fy* 
is  very  long  for  the  pump  beams,  and.  at  a  given  y(,  their  amplitude 
variation  as  a  function  of  zi  can  be  neglected  over  some  long  length 
in  the  interaction  region.  Equation  (16)  then  has  the  solution  for 
1  =  0. 

£s°Vi.yi)  =  £‘s° '(0.y,)exp  [|(4)|  .  (IT) 

where  (4)  =  Ef 1 E,iml 1  \ .  and  we  recall  t?'  =  0.  When  l  /  0. 

the  equations  for  1  and  -1  are  coupled,  and,  assuming  that 

=  (4)/.v. 

w  here  V  is  the  number  of  beams,  we  find 


.V  +  1 
V 

9  -V  -  l 


V 


(4>-'l 
(4)-! 


where  expt  iO;  I  =  E^  E  ^  1  ti'E'C"  -and 

o  =  -  ’£V''0.  y.  i  e\p<  -io:  )  *  £'5"“'0.  yt  )J  • 
J  =  i  E'tO.y;  iexpi  -io.  )  -  £5  ‘'(0,y()J. 


(18) 


(19) 


We  find  that  the  vector  (£5°, £4S-11)'  consists  of  two  portions,  a 
portion  which  is  in  phase  with  (£^\  E^*0)'  and  grows  somewhat 
faster  than  the  central  Stokes  beam  and  a  portion  which  is  out  of 
phase  with  (E^K  E^*11)'  and  grows  somewhat  slower.  On  a  length 
scale  longer  than  (j(4)/*v)**.  the  in  phase  component  dominates 
over  the  out  of  phase  component. 

At  this  point,  we  can  outline  the  condition  for  side  beam  repli¬ 
cation  to  occur  If  the  pump  beams  satisfy  the  condtion 
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pump  beams.  Thus,  the  gain  of  the  side  beams  is  higher  than  that 
of  the  central  Stokes  beam,  and  side  beams  will  be  observable  if  the 
overall  gain  is  sufficiently  large.  By  contrast,  in  the  opposite  limit 
of  Eq.  (20).  the  phases  of  and  E{L~n  change  too  rapidly  for  the 
phase  difference  of  the  Stokes  beams  to  lock  to  them.  In  this  cue. 
the  average  growth  rate  of  the  side  beams  is  only  slightly  higher  then 
that  of  the  central  beam,  and  side  beam  replication  is  not  expected 
to  occur. 


3.  DISCUSSION 


I 


The  experiments  of  interest  to  us  here  were  carried  out  at  the 
Naval  Research  Laboratory  using  a  XeCl  luer  at  308  nm  and  a  high 
pressure  Hj  cell.910  The  Stokes  radiation  emerges  at  353  nm  imply¬ 
ing  that  r  =  (ki  -  ks)/ki  =  0.13.  The  angular  separation  between 
incoming  pump  beams  is  5.6  mrad.  so  that  ( AA)„P  =  1.1  x  103  cm-1 . 
Experiments  were  carried  out  with  pump  beams  20  or  120  times  dis¬ 
persion  limited.  In  the  former  cue,  their  angular  spread  was  typically 
0.03  mrad  and  in  the  latter  cue.  it  wu  typically  0.18  mrad.  corre¬ 
sponding  respectively  to  (AA')b«m  =  6  cm-1  and  (AA‘)b.»m  =  37 
cm-1.  The  interaction  length  of  the  Hj  chamber  is  500  cm  and  in  all 
cues  4  <  j(/i,)r  <  20.  so  that  there  is  enough  gain  to  achieve  rea¬ 
sonable  amplification  without  causing  self-oscillation.  We  conclude 
8  x  10*3  <  j(4)  <  4  x  10*J.  The  number  of  beams  is  given  by 
.V  =  24. 


) 

) 

1 


I 

/ 


< 


->•5* 

We  now  examine  our  conditions  to  be  sure  that  they  are  met. 

We  first  find 

— -(AA')i,  =  0.5  cm*1  >  g{lL).  (12') 

2k  s 

r(AA)ttp  =  150  cm*1  >(AA)b„m*  6-37  cm*1.  (13')  j 


■ 

We  next  examine  ( l/2*t )( AA  )J„m.  For  the  20  time*  dispersion  4 

limited  beam  we  find  ; 


^•(AA’liuo  =  9  x  10*»  cm*1  <  g(IL).  (15') 

2kL 

and  for  the  120  times  dispersion  limited  beam,  we  find 

-£-(  AA')b„m  =  3.4  x  10'3  cm*1  <  9(/L).  (15") 

2kL 

Thus,  all  our  buic  conditions  are  met.  We  now  recall  .V  =  24.  so 
that 

g{ 4)/.Y  =  3  x  10*4  -  1.7  x  10*3. 

When  the  pump  beams  are  20  times  dispersion  limited,  we  thus  find 

tt-( AA‘)b«»m  <  j(4)/*V.  (20') 

2ki 

and  we  expect  side  beam  replication  to  occur.  By  contrut.  when  the 
pump  beams  are  120  times  dispersion  limited,  we  find 

-i-(AA)3,4rB>9(4)/.V.  (20'') 

2kL 

and  no  pump  replication  is  expected.  Both  these  results  are  in  accord 
with  the  experiments. 


“<-5A'3..m  <  9(4>/.V.  (20) 

2kt 

then  the  pump  beams  E'"  and  E'j"  are  correlated  over  a  length 
greater  than  (y</t)/.V  i*1  and.  as  a  result,  the  phue  difference  be¬ 
tween  E’l'  and  E't"  is  locked  to  the  phue  difference  between  the 


We  note  that  while  the  theory  of  Sec.  2  agrees  well  with  the 
experiments,  it  is  not  sufficiently  refined  to  lead  to  a  precise  de¬ 
termination  of  the  boundaries  between  the  different  regimes.  Here, 
numerical  simulations  are  likely  to  be  of  usistance.  and  we  intend  to 
carry  them  out  in  the  near  future. 
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Finally,  we  turn  to  methods  for  eliminating  side  beam  replica¬ 
tion.  These  include:  1)  Since  E^]  and  must  both  be  non-zero 
for  pump  beam  replication  to  occur,  we  can  arrange  the  pump  beams 
asymmetrically.  Unfortunately,  this  approach  lead  to  asymmetries  in 
the  Stokes  amplification  and  degradation  of  the  beam  quality.  2)  We 
can  increase  the  number  of  pump  beams.  This  approach  does  not 
appear  to  be  practical.  3)  We  can  phase  £ and  £^_0  so  that 
they  are  out  of  phase  with  each  other.  If,  as  seems  likely,  the  Stokes 
beams  are  seeded  almost  symmetrically  by  scattering  from  the  cen¬ 
tral  beam,  the  pump  and  Stokes  beams  should  be  out  of  phase.  This 
approach  appears  promising,  and  we  intend  to  explore  it. 
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Abstract 


Propagation  of  short,  transient  pulses  undergoing  stimulated  Raman  scattering  over  long 


length  scales  is  considered.  It  is  shown  that  under  common  experimental  circumstances,  the 


evolution  has  two  different  regimes:  1)  The  /-regime,  at  short  lengths,  where  the  pump  changes 


little  and  the  Stokes  rapidly  grows,  and  2)  the  /-regime,  at  long  lengths,  where  the  Stokes 


intensity  is  close  to  saturation  and  the  pump  intensity  decreases  slowly  as  the  square  root  of 


distance.  The  distance  at  which  the  /-regime  is  reached  is  determined  numerically. 
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Asymptotic  Evolution  of  Transient  Pulses  Undergoing 
Stimulated  Raman  Scattering 

Since  the  early  work  of  Carmen,  et  a/.1  the  evolution  of  pulses  undergoing  stimulated 
Raman  scattering  has  been  a  subject  of  constant  interest.3-13  In  the  limit  considered  by  Car¬ 
men,  et  al .3  where  diffraction,  level  saturation,  interaction  with  anti-Stokes  or  higher  order 
Stokes  radiation,  and  quantum  noise  can  all  be  ignored,  the  wave  interaction  is  governed  by 
the  equations 

dEL  _  M  op 
—  --t-KiQES , 

^ f  =  -iKiQ-EL  ,  (1) 

^■  +  rq  =  -iKlE‘sEL  . 

The  purpose  of  this  letter  is  to  revisit  Eq.  (l)  in  the  highly  transient  limit  where  Tj/r  <tC  1. 
The  quantity  Tj  =  T-1  is  the  damping  time  of  the  material  excitation,  and  r  is  the  full  width 
at  half  maximum  (FWHM)  pulse  intensity.  This  limit  is  relevant  to  recent  experiments  which 
have  been  carried  out  at  the  Naval  Research  Laboratory.11,13 

It  has  long  been  known  that  in  the  initial  growth  phase  where  | £7^ |  «:  \Ei\%  Eq.  (1)  can 
be  linearized  in  a  simple  way,  allowing  for  a  simple  characterization  of  the  solution.  We  shall 
show  that  in  the  limit  of  large  z,  a  simple  description  is  once  again  possible.  In  effect, 

A(t)S|Ei(z,t)|3  +  ^|£;5(z)t)|3  (2) 

remains  constant  for  all  z.  We  thus  find  that  as  the  pump  intensity  diminishes,  the  Stokes 
intensity  grows,  ultimately  taking  on  the  shape  of  the  initial  pump.  One  can  then  assume  that 
the  Stokes  intensity  is  fixed  and  carry  out  a  theory  analogous  to  that  of  Carmen,  et  al.1  One 
finds,  however,  that  the  /-Bessel  functions  are  replaced  by  7-Bessel  functions. 

Recent  experiments  at  the  Naval  Research  Laboratory  have  studied  transient  pulses  short 
compared  to  Tj.11,13.  These  pulses  typically  have  a  slight  chirp  proportional  to  the  pump 
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intensity,  but  no  rapid  phase  shift.  Under  these  circumstances,  numerical  results  indicate  that 
there  is  a  rapid  transition  between  the  /-regime  where  the  theory  of  Carmen,  et  al.1  applies  and 
the  7-regime  where  the  theory  to  be  presented  shortly  applies.  In  other  experimental  settings, 
where  a  phase  shift  which  is  rapid  compared  to  the  pulse  size  is  present,  a  soliton-like  structure 
can  form;7,10  however,  its  velocity  is  smaller  than  light,  so  that  it  must  ultimately  travel  to  the 
back  end  of  the  pulse  and  disappear  if  the  pulse  size  is  short  compared  to  7j.  Moreover,  we 
will  show  that  soliton-like  structures  cannot  form  when  the  pulse  size  is  short  compared  to  Tj 
if  two  conditions  are  met:  1)  the  initial  Stokes  amplitude  is  small  compared  to  the  pump,  and 
2)  there  is  no  phase  variation  in  the  leading  edge  of  the  pulse. 

We  begin  our  theoretical  development  by  recalling  that  in  the  /-regime,  the  solution  to 
Eq.  (1)  is  given  by 


Es(z,t)  =  Es(0,t)  +  (/ci*c,z)1/J£i,(t)  f  exp[— r(t  - 17)] 

J  —OO 

EiWEsMW)  -  r(t')l'1/J/i  -  7(01}1/1)  dt'  , 

Q(z,t)  =  -«*!  f*  exp[-r(t  -  O)^(O^5(0,O 

J  —  OO 

Io  ^2{*i«3z[r(0  -  r(t')]}1/j)  dt'  , 


(3a) 


(3  b) 


where 


(4) 


r(t)=  f  K(t')dt'  . 

We  now  solve  Eq.  (3a)  approximately  using  the  method  of  steepest  descent.13  In  the  regime 
which  we  are  considering,  where  Tj  is  much  larger  than  the  pulse  width,  most  of  the  contribution 
to  the  integral  comes  from  a  restricted  region  in  t'  where  the  rapid  increase  in  El  and/ or  Es  at 
their  leading  edges  balances  the  rapid  decrease  in  the  Bessel  function  as  r(t')  approaches  r(t). 
The  steepest  descent  path  is  along  the  real  t-axis.  The  details  of  the  solution  depend  on  the 
rapidity  with  which  El  and  Es  vary  in  the  neighborhood  of  the  steepest  descent  point. 
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We  now  assume  that  the  initial  Stokes  pulse  leads  the  pump  pulse  and  is  varying  slowly  at 
the  steepest  descent  point;  this  assumption  corresponds  to  maximum  gain.11,11  We  will  further 
assume  that  leading  edge  of  the  pump  varies  exponentially.  We  define  now 

s  =  4>cixjr[r(t)  -  r(t')]  , 

(5) 

a oo  =  4/Ciica zr(t)  , 

and  note  that  when  s  is  large 

~  exp[sl/l1  -  ^  ln(2jral/J)]  .  (6) 

m 

Physically,  we  are  assuming  that  z  is  large  enough  so  that  the  Stokes  pulse  has  undergone 
substantial  gain,  but  is  not  so  large  that  pump  depletion  has  begun.  For  these  assumptions  to 
be  consistent,  the  initial  Stokes  amplitude  must  be  small  relative  to  the  pump  amplitude.  At 
the  leading  edge  of  the  pump  pulse,  we  write  by  assumption 

El(t')  =  Ajtexp(rwt')exp[ifo(t')]  »  (7) 

where  Ar,,rw  and  4>l  are  all  real.  Equation  (7)  effectively  defines  all  three  quantities.  It  is 
useful  to  define  another  quantity  r(t)  through  the  relationship 

r(t)  =  r\t)A2L/Tv  .  (8) 

We  stress  that  a,  and  thus  the  steepest  descent  point  to,  is  a  function  of  t. 

In  the  case  being  considered,  we  may  write  Es{t')  =  Asexp[i^s(01-  Both  phases  4>l  and 
4>s  are  assumed  to  be  slowly  varying.  Gathering  together  all  the  rapidly  varying  terms  and 
substituting  the  results  into  Eq.  (3a),  we  find  that  the  argument  of  the  resulting  exponent  is 


given  by 


=  (r*  +r)t'-t-s^J  -  Jln(2x«s/l)  . 
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The  steepest  descent  point  is  the  point  at  which  dip/dt'  =  0.  This  point  satisfies  the 
relation 

•+r+4  [r(t)-r(l')l  (r(t)  -  r(C)|‘/>  ~°  '  (10) 

At  large  z  with  t  inside  the  main  part  of  the  pulse,  t'  is  out  on  the  leading  edge  of  the  pulse; 
hence,  r(t')  «C  r(t)  and  may  be  neglected  to  lowest  order  in  sli2.  Using  Eq.  (7),  we  conclude 

Carrying  out  the  remainder  of  the  steepest  descent  calculation,13  we  find 

f  »  i/i 

Es(z,t)  —  2kik3z  p,  ^  —  p Ex,(t)Es(0,to)El(to) 
exp[-r(t  -  t0)]  exp^1/2)/^**3/2)1/2  , 

where  s  is  evaluated  at  t  =  to-  We  stress  that  this  calculation  is  not  asymptotic  in  z  as  the 
exponential  rise  of  Ej,  is  controlled  by  Tw,  not  z.  It  does,  however,  yield  a  useful  approximation. 
We  have  compared  Eq.  (12)  to  numerically  calculated  exact  solutions  of  Eq.  (1)  in  several 
instances,  and  we  have  shown  that  they  agree  well  to  within  factors  of  order  unity  in  the 
appropriate  parameter  regime. 

We  can  obtain  a  number  of  results  directly  from  these  calculations.  First,  the  phase 
difference  <£/,(£)  -  <t>s(t)  in  the  bulk  of  the  Stokes  pulse  at  large  z  is  controlled  by  the  phase 
difference  <£z,[to(01  ~  ^s[to(0]  at  *  =  0.  At  large  z,  the  range  of  £0-values  controlling  the  bulk 
phases  reaches  a  constant  value.  Considering  the  half-widths  at  half  maxima,  we  find 

At0=  2f^ln[r2(r/2)/r2(-r/2)]  .  (13) 

Second,  since  the  central  to-value  deceases  with  increasing  z,  we  conclude  that  if  the  initial 
phase  difference  approaches  a  constant  value,  soliton-like  structures  cannot  form.  Third,  for 
any  given  z  and  t,  it  follows  from  Eq.  (12)  that  the  maximum  growth  is  obtained  by  placing 
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Es(to)  at  the  steepest  descent  point.  It  is  not  trivial  to  determine  precisely  the  optimum  offset 
for  the  Stokes  pulse  from  this  calculation  as  we  must  sum  the  contribution  at  all  values  of  t; 
however,  we  immediately  conclude  that  the  Stokes  pulse  should  precede  the  pump  pulse  by  an 
amount  on  the  order  of  1/TW.  These  conclusions  all  agree  well  with  available  experimental  and 
computational  results. 11,12 

We  turn  now  to  the  J-regime.  In  this  regime,  where  the  Stokes  intensity  is  close  to  its 
asymptotic  value,  we  find 


EL(z,t)  =  EL{z0,t)  -  [k x*a(z  -  zQ)]lfij~-Es(t) 


f  exp[— r(t-t')]£s(*')^(0,t')  (14a) 

J  —  oo 

[r(t)  -  r(t')]~1/J  Jx  ^2{«i/cj(z  -  z0)KO  “  r(0]}l/*)  dt'  , 

Q(z,t)  =  -tKi  j  exp[-T(t  -  t'))Es(t')EL[zo,t') 

J~°°  (146) 

Jo^2{*ik2(z  -  zo)[r(0  -  r(0]}1/3)  dt '  , 

These  equations  can  be  derived  using  the  approach  described  by  Wang14  or  verified  by  substi¬ 


tution  into  Eq.  (1).  Using  the  asymptotic  expression 


Jn[x)  = 


(15) 


we  reach  the  following  conclusions:  First,  at  large  z,  the  amplitude  El  at  any  time  scales  like 
z_1/4,  multiplied  by  a  periodic  variation.  The  total  integrated  intensity  must  therefore  scale  as 
z-1^.  Second,  the  number  of  zero-crossings  of  the  real  and  imaginary  parts  of  El  and  Q  scale 
like  zl/J.  Third,  new  zeros  enter  the  El  and  Q  pulses  at  large  t  and  travel  toward  smaller  t  as 
z  increases. 

In  order  to  verify  these  trends,  we  have  considered  a  large  number  of  numerical  solutions 
which  will  be  presented  in  detail  in  a  later  publication.  A  small  fraction  of  these  results  are  sum- 
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marized  in  Figs.  1  and  2.  In  these  figures  we  display  R  =  [/^  dt  £,£,'.*(0)/  f  ™  dt  ( £7^ i * ( f ) ] 2 


vs.  f  =  «i/c2zr(oo)  and  N  (the  number  of  zero-crossings  of  El)  vs.  where  ,Y  is  plotted  on 
a  parabolic  scale.  We  display  three  different  cases,  in  all  of  which  El  and  Es  are  purely  real 
and  Q  is  purely  imaginary.  The  initial  Stokes  intensity  is  10-3  of  the  pump  intensity  at  all 
points  in  time.  The  maximum  intensity  of  the  pump  is  the  same  in  all  ‘hree  examples,  and  their 
FWHM  values  of  the  the  initial  pump  profiles  are  chosen  so  that  they  all  have  nearly  the  same 
integrated  intensity.  In  all  cases,  the  FWHM  is  roughly  40  ps  and  Tj  =  633  ps.  We  find  that  the 
observed  scaling  agrees  well  with  the  analytical  predictions.  Moreover,  for  all  the  cases  shown 
here,  the  linear  scaling  is  obtained  when  f  cs  120  and  R  ~  10,  corresponding  to  70%  pump 
depletion.  In  our  examination  of  a  large  number  of  different  cases,  we  have  noted  the  following 
trends  for  pulses  short  compared  to  Tj:  1)  There  is  little  dependence  on  the  pulse  shape.  2) 
When  the  Stokes  offset  is  decreased,  i.e.,  the  Stokes  pulse  arrives  at  the  Raman  cell  earlier  than 
the  pump  pulse,  the  pump  must  deplete  more  before  the  7-regime  is  reached.  With  a  negative 
offset  equal  to  the  FWHM,  the  pump  must  be  90%  depleted  before  R  scales  linearly.  The 
scaling  of  N  is,  however,  only  slightly  affected.  Moreover,  the  f-value  at  which  the  7-regime  is 
reached  only  increases  from  f  =  120  to  f  =  180.  3)  When  the  Stokes  offset  is  increased  so  that 
the  Stokes  pulses  arrives  after  the  pump,  one  finds  that  beyond  70%  pump  depletion  R  scales 
linearly.  However,  linear  scaling  of  N2  is  delayed.  With  a  positive  offset  equal  to  the  FWHM, 
this  scaling  sets  in  at  around  f  =  180.  4)  When  a  chirp  proportional  to  the  pump  amplitude 
is  added  to  the  pump  and/or  Stokes,  no  effect  is  observed  when  the  magnitude  of  the  chirp 
is  approximately  x,  the  experimental  value.  When  the  magnitude  increases  to  approximately 
lOx,  the  f-value  at  which  the  7-regime  is  reached  increases  slightly,  by  under  50,  at  all  Stokes 
offsets,  with  no  observed  alteration  in  the  basic  trends. 
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In  this  letter,  we  have  considered  the  effect  of  stimulated  Raman  scattering  on  short, 

j 


transient  pulses.  We  have  shown  that  under  normal  experimental  circumstances  where  the 
phase  difference  between  the  pump  and  Stokes  pulses  at  their  leading  edges  reaches  a  constant 
and  where  the  Stokes  pulse  precedes  the  pump,  the  Stokes  pulse  will  phase  lock  to  the  pump 
and  grow  steadily.  Once  the  Stokes  has  nearly  saturated,  the  total  pulse  enters  a  new  regime 
where  the  pump  intensity  decreases  as  the  square  root  of  distance  and  the  pump  amplitude 
oscillates  with  a  frequency  proportional  to  the  square  of  the  distance. 

This  work  was  supported  by  the  Naval  Research  Laboratory,  and  we  gratefully  acknowledge 
useful  conversations  with  Dr.  J.  Reintjes. 
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FIGURE  CAPTIONS 


1.  Plots  of  R  vs.  f  for  different  pulse  shapes,  a)  sech-squared  amplitude,  FWHM  =  40  ps;  b) 
Lorentzian-squared  amplitude,  FWHM  =  39  ps;  c)  Square  pulse,  FWHM  =  43.8  ps. 

2.  Plots  of  N  vs.  f;  N  is  plotted  on  a  parabolic  axis.  Shapes  and  parameters  are  the  same  as 


in  Fig.  1. 
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LIE  PERTURBATION  METHODS  AND  THEIR  APPLICATION 
TO  INFINITE-DIMENSIONAL,  HAMILTONIAN  SYSTEMS 

Curtis  R.  MENYUK 

University  of  Maryland  - 
Department  of  Electrical 
Engineering  - 
COLLEGE  PARK,  MD  20742 
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ABSTRACT 


The  Lie  perturbation  method  of  Hori  and  Deprit  is  a 
practical  approach  for  determining  the  evolution  of  fi¬ 
nite-dimensional,  nearly  integrable,  Hamiltonian  systems. 
It  has  been  applied  with  notable  success  to  problems  in¬ 
cluding  satellite  motion  around  the  Earth  and  particle 
motion  in  accelerators.  We  review  this  approach  and  de¬ 
scribe  how  to  extend  it  to  infinite-dimensional  systems. 
Explicit  first  and  second  order  calculations  are  de¬ 
scribed  in  cases  where  the  initial  data  contains  a  single 
solitary  wave  and  a  small  amount  of  radiation.  Impli¬ 
cations  for  the  emergence  of  solitary  waves  from  arbit¬ 
rary  initial  data  are  discussed. 
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Anaual  Meeting  of  the  Optical  Society  of  America  (Rochester,  NY,  October 
18-23,  1987),  papers  MI7  and  M112. 


MI7  Numerical  modeling  of  Iranalewt  Raman 
smpdlication 

GOOEHARO  HfLFER.  Science  Applications  inter- 
national  Corp  .  1 7  to  Goodrdge  Or  .  McLean,  VA 
22tQ2:  CURTIS  R  MENYUK.  U  Maryland.  College 
Part  MO  20742 

To  mods!  experiments  performed  by  Remt|es  f 
a/.'  a  numerical  code  nas  been  developed  that 
solves  the  Raman  interaction  equations: 


SAl 

di 

3  A  j 
dx 


L_ 

2kL  Jy 

2*t5  Jyl 

sa 

at 


y  *  -  -*so. 


»  tt.AL0*. 


*  ro  -  m.a/a* 


The  oppose  is  to  study  the  influence  of  transience, 
transverse  Deam  structure  pump  depletion  and 
dispersive  effects  on  the  amplification  and  phase 
modulation  o«  diverse  forms  of  transient  Stokes 
and  pump  t>eams  in  a  cross-beam  geometry. 

Preliminary  resutts  ot  these  simulations  are  re¬ 
ported  for  the  beam  parameters  of  the  NRL  experi¬ 
ments  ( 12  mb») 

1  J  Relntjes.  R  H  Lehmberg.  RSF  Cheng.  M. 
T  Duignen.  end  G  Cafame.  Beam  Cleanup 
with  Stimulated  Raman  Scattering  in  the  inten¬ 
sity- Averaging  Regime.  J  Opt.  Soc  Am.  B  3. 
UO0  H986).  see  Table  i 


Ml  12  Linear  theory  el  Reman  beam  cleanup 
and  ampPhcafton  In  a  craning  beam  geometry 

CURTIS  R  MENYUK.  U  Maryland.  Department  of 
Electrical  Engineering.  CatonsviHe.  MD  21220 

m  experiments  which  have  been  performed  to 
date  at  the  Naval  Rasearch  Laboratory. '  ft  has 
bean  discovered  met  the  results  can  be  character¬ 
ized  by  the  Fresnel  number  of  the  aberrations  D\t 
XL.  where  DA  la  the  transverse  scale  length  of  the 
aberrations.  L  is  the  interaction  length  of  me  pump 
and  Stokes  beams,  and  X  is  the  pump  waveiengm. 
The  results  are  characterized  by  the  geometry  (col- 
imear  or  crossing  beam)  end  aberrations  (phase, 
amplitude,  or  both)  We  show  that  many  of  the 
experimentally  observed  effects  can  be  explained 
by  a  linear  theory,  although  nonlinear  effects  due  to 
pump  depletion  are  in  most  cases  important  The 
circumstances  m  which  off -angle  contributions, 
copropagating  with  tha  crossing  beams,  are  seed¬ 
ed  by  the  pump  end  can  grow  to  important  levels 
are  elucidated  (12  min) 

V  J.  Remtjes.  R  H  Lehmberg.  R.  S  F  Cheng.  M 
T  Duignen.  and  G.  Caiame.  Beam  Cleanup 
with  Stimulated  Raman  Scattering  in  me  Inten¬ 
sity-Averaging  Regwne."  J  Opt  Soc.  Am  B  3. 
1400  (1966).  sea  Table  1 
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Workshop  on  Solitons  and  Chaos  in  Optical  Systems  (San  Jose,  CA,  January 
6-7,  1988). 


SOLITONS  IN  A  KERR  MEDIUM 

Curtis  R.  Menyuk 

Department  of  Electrical  Engineering 
University  of  Maryland 
Baltimore,  MD  21228 

ABSTRACT:  In  a  weakly  dispersive  medium  with  a  Kerr  nonlinearity,  the  equations 
governing  the  electromagnetic  wave  evolution  can  be  written  as 

+  ^uaa  +  (|u|2  -I-  B\v\2)u  =  0, 

V(  +  ^ vaa  +  (£ju|2  +  M2)u  =  0, 

where  u  and  v  are  the  envelopes  of  the  two  polarization  amplitudes,  f  is  the  normalized 
distance,  s  is  the  normalized  time,  and  B  depends  on  the  medium  in  question.  For  media 
such  as  optical  fibers,  where  the  Kerr  response  is  essentially  instantaneous,  B  =  2/3  [See, 
e.g.  C.  R.  Menyuk,  IEEE  J.  Quantum.  Electron.  QE-23,  174  (1986)].  Painleve  analysis 
indicates  that  this  system  is  only  integrable  when  B  =  0  or  B  =  1.  Both  these  cases  merit 
profound  study  since  they  provide  a  useful  starting  point  for  studying  the  general  case 
where  B  ^  0  or  1.  In  the  former  case,  this  system  reduces  to  two  uncoupled  nonlinear 
Schrodinger  equations.  The  nonlinear  Schrodinger  equation  has  been  extensively  studied. 
In  the  latter  case,  this  system  has  been  studied  by  Manakov  [Sov.  Phys.  JETP  38,  248 
(1974)]  who  found  the  Lax  pair  for  this  system,  showed  how  to  solve  the  Cauchy  problem 
using  spectral  transform  methods,  and  explicitly  derived  single  soliton  solutions  where 
both  u  and  v  are  proportional  to  sech(as).  In  this  work  it  is  shown  by  a  direct  search  for 
stationary  solutions  that  the  class  of  single  soliton  solutions  is  substantially  larger  than 
the  sech-like  class  found  by  Manakov.  The  soliton  profiles  can  be  obtained  in  the  general 
case  by  using  an  approach  originally  described  by  Darboux  [Archives  neerlandaises,  Ser.  2, 
6.  371  (1901)]. 


SPIE:  O-E  LASE  ’88.  Nonlinear  Optics  and  Beam  Combining  (Los  Angeles, 
CA,  January  11-15,  1988),  paper  874-50. 
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Marriott  Ballroom  Lobby .  7:30  am  to  5:00  pm 

Placement  Service  Center, 

Hilton  International  Ballroom .  10:00  am  to  4:00  pm 

Exhibits,  Hilton  Pavilion, 

Hilton  International  Ballroom .  10:00  am  to  5:00  pm 

SESSION  5 . Wed.  8:00  am 


•Coffee  Break  . 10:00  to  10:30  am 

Invited  Paper  Beam  combining  in  a  gas  via  nonlinear, 
diffractive  optics,  I  S.  Chivian,  LTV  Missiles  and  Electronic 
Group:  C  D  Cantrell,  Univ.  of  Texas  at  Dallas:  W.  D.  Cotten, 

LT\  Missiles  and  Electronics  Group.  C.  A.  Glosson,  Univ.  of 
Texas-  Dallas . (874-16] 

High  frequency  stimulated  Brillouin  scattering  experiments, 

M  E.  Fares.  C  G  Koop.  TRW.  Inc . (874-17] 

Invited  Paper  Stokes-anti-Stokes  gain  suppression  in  the 
transient  regime,  A  B.  Hickman,  W.  K.  Bischel,  SRI 
International . (874-18] 

SPIE-Hosted  Picnic -style  Lunch,  Hilton  Plaza 

(Lower  Level) .  Noon  to  1:00  pm 

Dessert  in  the  Exhibit  Halls,  Hilton  Pavilion  and 

International  Ballroom . 1:00  to  2:00  pm 

SESSION  4 . Tues.  2:00  pm 

Nonlinear  Optics  and  Beam  Combining  IV 

Chair  Pochi  Yeh,  Rockwell  International  Science  Center 

Invitetl  Paper  Stimulated  Brillouin  scattering  aberration  control, 

M  |  ti'felivre,  S  I  Pfeifer,  TRW,  ln< . (874-19| 

Coherent  beam  combination  via  microparticle  plasma  modes, 

D  N  Rottovin  T  P  SFien.  Rrx kwell  International  Science 
Or  ,  . _ ,  . .  . . . [874-20] 

Pump  replication  in  stimulated  Raman  scattering  using  a  crossed  I 
beam  geometry,  C  R  Menyk.G  Hiller.  Science  Applications  ' 
Intern. monal  Corp  |  Reint|es.  Naval  Research  Lab . (874-50) 


Nonlinear  Optics  and  Beam  Combining  V 

Chair:  Robert  A.  Fisher,  R.A.  Fisher  Consulting 

Invited  Paper:  Phase  pulling  in  transient  Raman  amplifiers, 

M.  D  Duncan,  R.  Mahon,  L.  L.  Tankersley,  ).  F.  Reintjes,  Naval 
Research  Lab . (874-26) 

Four-wave  mixing  in  cesium  vapor,  R.  St.  Pierre,  A.  Horwitz, 

).  Brock,  TRW,  Inc . |874-27) 

Invited  Paper:  Adaptive  optic  phase  compensation  of  an 
aperture  combined  Raman  laser,  J.  R.  Oldenettel,  L.  Cuellar, 

C.  N.  Howten,  E.  Newman,  K.  Roff,  K.  Y.  Tang,  Western 
Research  Corp . (874-28) 

Conditions  for  spontaneous  generation  of  solitons  in  stimulated 
Raman  scattering,  C.  M.  Bowden,  U.S.  Army  Missile  Command, 

).  C.  Englund,  Southern  Methodist  Univ . (874-29) 

'Coffee  Break  . 10:10  to  10:30  am 

New  applications  and  designs  for  deformable  mirrors,  E.  S.  Bliss, 

(.  R.  Smith,  R.  L.  Miller,  Lawrence  Livermore  National 

Lab . (874-30) 

Atmospheric  effects  on  target  detection  with  an  imaging 

radiometer,  T.-S.  Chu,  AT&T  Bell  Labs . (874-31) 

Search  techniques  for  wavefront  estimation  by  phase  retrieval, 

M  E  Dorros,  AT&T  Technologies:  R  A.  Gonsalves,  Tufts 
Univ . (874-49| 

'Codec  will  he  served  in  the  Hilton  Pavilion  and  in  the  Marriott 
Ballroom  Lobbv 
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Conference  on  Lasers  and  Electro-optics  ’88  (Anaheim,  CA,  April  24-29, 
1988)  papers  WM22  and  WM23. 


WM13  Suppression  of  Food- 
b«cfc-lnduc*d  Noise  in  Semicon- 
Ajcfor  Lasers  by  a  Combination 
of  Optoelectronic  Negative  Feed- 
back  and  High-Frequency  Soper- 
fmpoaition,  Nonyuki  Yoshikawa. 
Mitsuo  Tamura.  Ken  Hamada. 
Masarnro  Kume.  Htrokazu  Shi¬ 
mizu.  Gota  Kano,  iwao  Teramoto. 
Matsushita  Electronics  Corpora¬ 
tion,  Japan  A  nign  reduction  of 
tba  optical  feedback-induced  in¬ 
tensity  noise  of  semiconductor 
lasers  nas  been  successful 
acnieved  oy  a  combination  of  oo- 
toeiectronc  negative  ‘eedback 
and  h i gn- frequency  suOer*fT,DOSi- 
tion.  this  oerng  useful  for  optical 
disk  systems. 

WI414  Low-Frequency  Fluctua¬ 
tions  and  Chaos  in  a  Distributed 
Feedback  Semiconductor  Laser 
with  Optical  Feedback,  J  Work, 
Technical  U  Denmark.  K.  Kikuchi. 
U  To*yo.  japan  An  experimental 
investigation  of  the  route  to  chaos 
m  a  distributed  'eedback  semi¬ 
conductor  aser  with  optical  feed¬ 
back  s  reposed.  A  chaotic  state 
may  be  'eacned  through  inter¬ 
mittent  swtchmg  between  nigh- 
and  'cw-'recuency  fluctuations. 


Nonlinear  Optics,  Phase 
Conjugation,  and 
Spectroscopy 

WM15  Measurement  of  Raman 
Gain  Coefficients  of  Hydrogen, 
Deuterium,  and  Methane.  John 
J  Ottuscn  David  A.  Rockwell 
Hughes  ze$earch  Laooratones 
Usmg  a  s.-gie  Nd  vaG  aser  to 
pump  a  Raman  oscillator  and 
amplifier  *e  measured  the 
steady-state  gam  coefficients  of 
H,.  D,  and  CH4.  at  532  nm  The 
oscmaior  spectrum  and  fhe  ef¬ 
fects  of  osc;f  ator  ampiit  er 
pressure  ~  smatch  *ere  also  *n- 
restigateo 

WM16  Phase  Conjugation  in  Li¬ 
quid  CS»  Using  a  CO,  Laser.  P  E 
Dyer  J  S  Leggatt  U  null.  U  * 
Degenerate  1  ;uf  *3ve  n-g  m 
quid  CS;  -a  a  TEA  CO,  'aser 
has  resumed  n  a  phase  conjugate 
reflective1 .  of  1 '  Dramat'C  bu'se 
reshape ;  a-'j  erg,''e'~  ~g  s  ob¬ 
served  a" :  a  ,e*a  ec  — at^e^at 
ca»  mode  :*'oosed 


WM17  Nonlinear  Optical  Rang¬ 
ing  Imager,  tan  McMichaei.  Monte 
Khoshnevisan.  Paul  H.  Beckwith 
Rockwell  mternat'onal  Science 
Center  A  new  method  that  can  be 
used  to  image  3-D  oPiects  m  two 
dimensions  using  nonlinear  op¬ 
tical  two-wave  mixing  techniques 
is  described  and  demonstrated, 
information  about  the  third  dimen¬ 
sion  of  depth  is  represented  as  an 
intensity  modulation  m  the  image. 

WM18  Laser  B*am  Combining 
Using  Near  Resonance  Nonlinear 
Dispersion.  C  A.  Giosson.  C  0 

Cantrell,  u  rexas  at  Dallas:  Jay  S 
Chivian.  W  0.  Gotten,  1.7V  Mis¬ 
siles  &  Electronics  Group  Near- 
-esonance  nonlinear  dispersion  is 
used  to  create  a  periodically  mod¬ 
ulated  index  of  refraction  m  a  col- 
lection  ot  three-level  systems,  ac. 
tmg  as  a  grating  for  beam  addi¬ 
tion. 

WM19  Coherent  Baam  Coupling 
and  Pulaatkma  in  Seif-Pumped 
8aTK}„  Putcna  Venkateswariu.  P 
Cnandra  Sexnar  H  Jagannath.  M 
C  George.  M  Moghbel.  Alabama 
a&m  u  Beam  couplings  and  co- 
nerent  pulsations  in  BaTiO,  using 
two  coherent  beams  trom  Ar  and 
He-Ne  asers  are  studied  in  three 
config.  -anons.  Relative  strehgths 
of  self  pumped  and  cross-coupied 
Bragg  reflected  beams  are  obtain¬ 
ed 

WM20  Four  Wave  Mixing  at  Op¬ 
tical  Frequencies  in  Coilisionai 

Plasma*.  L  Zhang.  UC  Davis  E  J 
Beiting,  Aerospace  Corporation 
Four-wave  mixing  in  a  coilisionai 
plasma  was  studied  theoretically 
lot  plane  eaves  mput  at  two  fre¬ 
quencies  Expressions  for  ”-e  in¬ 
tensities  at  the  six  sum  anc  qit 
'erence  frequences  were  obtain¬ 
ed  in  terms  of  the  electron  3e°sity 
and  plasma  temperature 

WM21  40  initio  Theory  of 
Stimulated  Rotational  Raman 
Scattering  tor  Diatomic  Molecules 
and  Numerical  Simulation.  C  G 

Parazdoii  0  M  Capps,  R^gnes 
Aircraft  Company  The  ’’me- 
dependent  semiciassical  '"eory 
of  stimulated  rotatonai  Paman 
scattering  presented  ’  in 
eludes  muiiirota'  onal  -res 
Stokes,  anti  Stokes,  muitipnoton 
processes  pump-rooulahon  de- 
cet'on  soor-'anecus  em  ss<on 
Resu.ts  ‘rqm  a  r^~ ericai  :oae 
with  dif'raction  are  -sported 
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WM22  Numerical  Studies  ot 
Transient  Raman  Amplification, 

Godenard  Hiifer.  SAiC  Curtis  R 
Menyuk.  U  Marytana.  John  fleint 
jes.  il  S.  Naval  Research  LaDora - 
tory  The  (2  +  fVdimensional 
Raman  amplifier  code  RAM2D1 
was  used  to  study  numencaiiy  the 
effects  ct  the  Raman  interaction 
observed  in  the  Naval  Research 
Laboratory  experiments.  Both 
transient  and  diffractive  effects 
are  included  in  the  code. 


WM23  Transient  Puls*  Evolu¬ 
tion  in  the  Long  Dts trance  Limit  ot 
Stimulated  Raman  Scattering, 

Curtis  R.  Menyuk.  U  Maryland; 
Godehard  Hiiter.  SAIC  We  con¬ 
sider  the  evolution  ot  transient 
SRS  pulses  over  lengths  suffici¬ 
ently  long  to  substantially  deplete 
the  pump.  We  show  that  both  the 
pump  and  the  material  excitation 
develop  rapid  oscillations  which 
can  be  desenbed  analytically. 


WM2*  Establishment  ot  Phase 
in  Stimulated  Briilouin  Scattering 
Beam  Combiner*.  Joel  Falk.  Mor¬ 
ton  Kanefsky.  Ronald  Mehrmger. 
Paul  Sum.  U.  Pittsburgh  The 
phase  difference  between  two 
stimulated  Briilouin  scattered 
Deams  generated  in  a  single  ma¬ 
terial  must  be  described  as  a  ran¬ 
dom  process  whose  probability 
distribution  depends  on  the  over- 
ap  between  the  *wc  Dump  ofeams. 
—e  Stones  puise  width  and  the 
phonon  lifetime 


WM2S  Experimental  Studies  on 
the  Second  Harmonic  Generation 
ot  Broadband  HigtvPeakPower 
Laser  Radiation  at  S27  nm  Using  a 
Quadrature  Crystal  Amy,  M  S 
Pronko  S  P  Obenscham.  R  H 
uenmoerg.  US  Naval  Research 
Laboratory  We  present  experi¬ 
mental  -esuits  on  the  production 
of  broadband  'aser  'adiat  on  ai  a 
wave'e-gth  of  527  nm  A  two- 
crystal  quadrature  configuration 
s  shewn  to  nave  higher  second 
-armc-'C  ror-ve-sion  e*4:cienrv 
man  conventional  s-ngie  c-ysia' 
stems 


Formation  of  Soliton-like  Structures 
in  Stimulated  Raman  Scattering 


Curtis  R.  Menyuk 

Department  of  Electrical  Engineering 
University  of  Maryland 
Baltimore,  MD  21228 
tel.  no.  (301)-455-3488 


ABSTRACT:  Conditions  for  the  formation  of  soliton-like  pulses  in  stimulated  Raman  scattering  are 
derived.  Use  of  the  spectral  transform  method  to  study  arbitrary  initial  pump  shapes  is  described 
with  a  concrete  example. 


Formation  of  Soliton*like  Structures 
in  Stimulated  Raman  Scattering 


Curtis  R.  Menyuk 

Department  of  Electrical  Engineering 
University  of  Maryland 
Baltimore,  MD  21228 
tel.  no.  (301)- 455-3488 


The  equations  which  describe  transient  stimulated  Raman  scattering  are1 


dEL 

dz 


-i^K2QEs, 


dEs 

dz 


-t«j  Q*El, 


dQ 

-£  +  TQ  =  -iKlE’sEL. 


(1) 


Here,  El  and  Es  are  the  complex  amplitude  envelopes  of  the  pump  and  Stokes  waves,  ki  and  ks 
are  the  corresponding  wavenumbers,  Q  is  the  material  excitation,  ki  and  kj  are  gain  coefficients, 
and  T  =  T2-1  is  the  material  damping  rate.  While  these  equations  have  been  extensively  examined 
in  the  past,  their  evolution  depends  strongly  on  the  initial  conditions,  and  there  remains  much  that 
is  of  substantial  interest  to  be  examined. 

If  the  initial  pump  pulse  is  larger  in  width  than  Ti,  it  is  possible  for  solitons  to  form  when  the 
phase  of  the  Stokes  pulse  undergoes  a  rapid  phase  flip.2-4  How  rapid  must  this  flip  be?  Here,  we 
address  this  question. 

We  first  note  that  if  Tw  >  T2,  where  Tw  is  the  width  of  initial  pump  wave,  then  Eq.  (1)  reduces 


to 


dEL 

dz 

dEs 

dz 


=  1)El\2Es, 


(2) 


where  g  =  2k\K2-  Equation  (2)  is  easily  solved.  Letting  Al  ~  \El\,  As  =  {ki/ksyt2\Es\,  and 
noting  that 

ks 


K(t)  =  \EL(z,t)\*  +  ^\Es(z,t)\2 


(3) 


is  constant  in  z,  we  find 


,  K2  -  A2s  ,  A2L  _  ,  „a 

In - = — -  =  In - - — =  C  -  )nk  1  r 


(  41 
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at  each  point  in  time,  where  C  is  a  constant  of  integration.  We  now  suppose  that  Es  has  the  form 


Es  =  KT  st  +  iKs 


(5) 


in  the  neighborhood  of  t  =  0,  where  K(t)  =  K  is  constant.  We  assume  that  A's  <  K  but  is 
non-zero,  resulting  in  a  small  deviation  from  an  exact  ir-phase  shift  for  Es-  In  the  neighborhood 
of  t  =  0,  we  then  find 


'K2(  1  -  T2st2)-K2s 

r  k2 

K2T2st2  +  K2 

K2V2st2  +  K2S, 

so 


that 


A\  K2T2st2  +  K2s  .  „  , 

7T  --7T - ^2 - -  =  ex?(~2gK2  z)  =  F{z). 


K2  -  A l 


We  conclude 


-  FK 2 

[AL(t  =  0)]  =  p  +  K2jK2 


Defining  r  as  the  t-value  at  which  [Ax,(t)]J  =  j[Ai,(0)]2,  we  find  that 


rs  L2 va'2 


(6) 

(7) 

(8) 

(9) 


For  a  soliton-like  structure  to  form,  it  must  be  the  case  that  r  <  T2  at  some  s-value.  Noting  that 
F-*0asz- >oo,  we  conclude  that  this  will  occur  if 


rs  k 


< 


1. 


(10) 


In  experiments  where  a  Pockels  cell  was  used  to  impose  a  phase  reversal,  soliton-like  structures 
were  only  observed  intermittently.4  Equation  (10)  and  a  careful  reading  of  the  experimental  papers 
suggests  that  the  ratio  T/Ts  may  have  been  too  small  to  lead  to  a  reasonable  expectation  of 
satisfying  Eq.  (10). 


We  now  turn  to  consideration  of  the  case  where  the  pulse  size  is  small  compared  to  T^.  This 
limit  is  of  substantial  interest  because  in  recent  experiments  at  tie  Naval  Research  Laboratory,  pulse 
sizes  of  about  40  picoseconds  and  72-values  of  about  600  picoseconds  are  typical.5,6  In  this  limit, 
T  may  be  set  equal  to  0  in  Eq.  (1).  The  equations  are  then  integrable  using  spectral  transform 
methods.7,8  However,  the  usual  method  of  solution  must  be  substantially  modified,  leading  to 
substantial  modifications  in  the  behavior  of  the  solutions. 
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In  carrying  out  this  theory,  it  is  useful  to  first  normalize  our  variables  so  that 

dAx 


dx 


=  -XA2, 


9A2 

W  =  XA" 

~  =  AlA 


(ii) 


where  Ai  and  A2  are  the  normalized  pump  and  Stokes  amplitudes,  X  is  the  normalized  material 
excitation,  and  x  and  T  are  normalized  distance  and  time.  We  now  define  two  new  quantities,  ti! 
and  ti2  which  satisfy  the  equations 


du\ 

—  -  t'Aui  =  Xu2, 
du2 

~S~  +  i\u2  =  -X’ui, 

ox 


(12) 


and 


where 


dm  i  1 

17  =  ‘a53”1 +  X5+”2' 

du2  i  1 

_  =  _53«2-x5_u1, 

53  =  \(AmxAi  -  Am2A2), 


(13) 


S+  =  \a’2Ax,  (14) 

5_  =  s;. 

Equations  (12)  and  (13)  are  only  compatible,  i.e.,  their  cross-derivatives  are  equal,  only  if  Eq.  (11) 
holds. 

In  the  usual  spectral  transform  approach,  as  applied  for  instance  to  the  nonlinear  Shrodinger 
equation,  one  would  proceed  by  defining  scattering  data  which  rulate  (u\,u2)  at  r  =  +oo  to  (u\,  u2 ) 
at  r  =  -oo.  This  scattering  data  has  a  one-to-one  correspondence  with  the  original  variable  set. 
Moreover,  since  u i  and  u2  evolve  simply  in  x  a*  r  —  ±oc,  so  do  the  scattering  data,  and  one  can 
then  infer  the  evolution  of  the  original  variable  set.9  In  our  case,  a  fundamental  difficulty  results 
from  the  fact  that  X  does  not  in  general  tend  toward  zero  a;  r  tends  toward  +oo,  and  the  x- 
evolution  at  -hoc  is  not  simple.  Kaup7  has  resolved  this  issue  in  certain  important  cases  by  showing 
that  our  variable  set  only  depends  on  the  evolution  of  Ui  and  v2  at  r  =  —  oo. 

We  apply  his  approach  in  detail  to  cases  of  practical  interest  to  determine  the  full  nonlinear 
evolution,  notably  the  case  where  the  initial  pump  and  the  initial  Stokes  have  the  same  shape. 
We  also  show  that  in  contrast  to  the  usual  case,  where  the  initial  pulse  decomposes  into  a  set  of 
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enduring  solitons  and  a  dispersive  continuum,  all  soliton-like  structures  must  be  transient.  From  a 
physical  standpoint,  this  result  is  almost  self-evident.  These  soliton-like  structures  are  well-known 
to  possess  a  velocity  slower  than  light.2  They  must  therefore  ultimately  disappear  at  the  back  end 
of  the  pulse. 

This  work  was  supported  by  the  Naval  Research  Laboratory,  and  the  author  is  grateful  to 
Dr.  J.  Reintjes  for  numerous,  useful  discussions. 
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